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The Job Control Processor is the combination (via Add Binary) of three 
separate assemblies, the sources for which are JLnn, CMnn, XSAnn f and 
XSBnn. (nn is the current version number for each source.) 

1.0 OVERVIEW 


JL contains most of the code in Job Control which references things 
within the Monitor. It contains a LODSYM statement, which obtains the 
Monitor symbol table from the last assembly of the Monitor. Note: JL 
must be reassembled whenever the Monitor is modified. It is, however, 
the only Job Control module which refers to Monitor locations outside 
page 0. Included in JL are the end-of-job cleanup routines, which re¬ 
store various Monitor flags and pointers to their '’normal" values; the 
code which loads field 1 sections of Job Control; and the binary loader, 
which is actually not read into core until Job Control processing is 
complete. 

2.0 THE ROUTINES 

CM contains the command interpreter and command display routine. It 
is entered at CMINIT with the internal code of the system unit in the 
AC. This is stored as the initial default device and preferred load 
unit. Control transfers to CMPMOV, which moves a number of constants 
and initial values of variables into page 0 , then returns to CMI000, 
the start of the command interpreter. After initializing pointers and 
state values, a read is issued to the Teletype"*", and the index is read 
from the system unit. 

At CMI100, the value of MAJOR is used to set the appropriate help 
frame, and control flows into the main display loop at CMI110. The 
pointers LSTCHR and NEWCHR are maintained pointing to the last charac¬ 
ter typed in the buffer and the next available buffer location, respec¬ 
tively. When the location pointed to by LSTCHR becomes zero, a charac¬ 
ter has been rubbed out. If it was a delimiter, (LSTDEL points to the 
last delimiter), the command string is rescanned to determine the cur¬ 
rent state of the command. When the location pointed to by NEWCHR be¬ 
comes non-zero, a new character has been typed. The code at CMI200 
performs nominal validity checking, and if the character is a delimiter, 
calls the appropriate delimiter handler, as indicated by the control 
table at DELS. 

^Teletype is a registered trademark of the Teletype Corporation. 
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If a line terminator (carriage return, line feed or ALT MODE) is 
struck, CMI900 is called. This routine attempts to complete scanning 
of the input string. If an error is found, the user will not be able 
to correct it because the Teletype read has been closed. Control 
therefore returns to CMI000 , where the buffer is cleared, and a new 
command accepted. Then, if no errors are found and the terminator 
was carriage return, final setup on page 37 is performed, and the 
loader called to read in the desired function. 

The index service routines, XSnn, are invoked in the following circum¬ 
stances : 

1) At end-of-job, when a function has been completed 
successfully and taken a normal exit, EJS, the 
end-of-job file saving routines, are invoked by 
the Job Cleanup routine, EOJ, in module JL. 

2) During interpretation of a command, whenever a 
file is named, it is either looked up or a work¬ 
ing area is allocated to contain it, by calling 
XS. 

3) Whenever the special command DX is used, the index 
display routines in XS are called. 

EJS is non-reusable, and is overlaid by the DX buffers whenever DX is 
called. When EJS is called, it scans the file descriptor blocks in 
page 37, and allocates index entries for any permanent output files on 
mass storage devices named there. For each file to be saved, EJS 
checks the validity of the specified name, and requests a new name 
from the user if it is invalid. 

DX is serially reusable. The index to be displayed must be at location 
4000 in field 1. While it is displayed, the user may DELETE, ALIAS, 
or RENAME any file (by typing the initial character of each function); 
print the index (by typing P); move forward or backward in the index 
by typing F or B to move by pages; or type line feed or ALTMODE to 
move by lines, or L to locate a file entry. 

Typing carriage return at this time will return the user to the Job 
Control display and make permanent any changes entered. If the user 
makes changes in the index, but decides he does not want the changes, 
he may type CTRL/C to return to Job Control without making the changes 
permanent. 
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3.0 CORE MAP 


Field 0: 


Field Is 


0000-0043 

0 ) 2 ( 44-0137 

0140-2577 

2600-3377 

3400-3777 

4000-6777 

7600-7777 


Reserved for Monitor 
Command Interpreter page 0 
(loaded by CMINIT) 

Monitor 

Unused 

JL: EOJ, control D, Loader loader 
Command Interpreter 

Page 37: information passed to program 


0000-0177 

0200-1577 

1600-34xx 

34xx-3777 

4000-4177 

4000-7777 

7000-7777 


XS page 0 

General purpose index service routines 
Display index with option handlers 
DX buffer (EOJ file saving until DX 
called) 

EOJ page 37 analysis, overlaid by index 
Current default unit index 
Loader, when called 
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DELIMITER HANDLING 











si L<t>x 


/ LDP SYSTEM JOB CONTROL 

/ END-OP-JOB PROCESSING 

/ 

/COPYRIGHT 19701 DIGITAL EQUIPMENT CORP. 

/ MAYNARD, MASS, 01754 

/ 

/ VERSION 01 DECEMBER 1, 1970 

/ JUD LEONARD 

/ 

/ THE LOADER IS ASSEMBLED WITH EOJ 

/ BECAUSE IT ALSO NEEDS ACCESS TO 

/ MONITOR SYMBOLS, THE TWO BINARIES 

/ ARE LOADED SEPARATELY, 


LODSYM 


/GET MONITOR SYMBOLS 


ERRADDp 0 

/ 


/I TO TYPE ERROR EXIT ADOR 


SOME OTHER SYMB0L8 


AX0b 10 
AXlflll 

Axswia 


CMINIT o4000 
CMBLKSalB 
XSLENa4400 
XSBLKSPll 

PMODE 


/NO OP FIELD 0 BLOCKS IN JCL 

/NO OF FI BLOCKS 
/EXCLUDING LOADER 


*3400 

ENTRY POINTS 


JMP 
JMP I 


EOJ 

PLOLD 


EJECT 


m S2 



/ 




0053 



/ 

REVIRGINIZE THE 

MONITOR 

0054 



/ 




0055 

3402 

6PI02 

EOJ, 

IOF 


/SELF PROTECTION 

0056 

3403 

7300 


CU CLL 



0057 

34gt4 

6)41 


LINC 



0060 

3405 

0004 


0004 


/ESP TO CLEAR ALL FUNCTIONS 

0061 

34 06 

0002 


0002 


/BACK TO POP 

0062 

0063 

3407 

6201 

/ 

CDF 

0 


0064 



/ 

RESET VARIOUS FLAGS AND POINTERS 

0065 



/ 

IN THE 

MONITOR, 


0066 

0067 

3410 

1352 

/ 

TAD 

CLLIST 

/LIST OF THINGS TO CLEAR 

0070 

3411 

3010 


DC A 

AX0 


0871 

3412 

1410 

EOJ005, 

TAD I 

AX0 


0072 

3413 

7450 


SNA 



0073 

3414 

■ 5220 


JMP 

EOJ006 


0074 

3415 

3002 


DC A 

TMP1 


0075 

3416 

3402 


DC A I 

TMP1 


0076 

0077 

3417 

5212 

/ 

JMP 

EOJ005 


0100 

3420 

7240 

EOJ000P 

MO ME 



0101 

3421 

3786 


DCA I 

PTFIAG 

/TTY IS IDLE 

0102 

3422 

7240 


MONE 



0103 

3423 

3787 


DCA I 

PTCSW 

/ALLOW CONTROL C 

0104 

0105 

3424 

1360 

/ 

TAD 

RISTP 

/RESET INT STACK 

0106 

3423 

3016 


DCA 

ISTP 


0107 

3426 

1361 


TAD 

RMSTP 

/RESET MON 8TACK 

0110 

3427 

30 17 


DCA 

MSTP 


0111 

0112 



/ 

EJECT 





clear the interrupt scan chain 


0113 

0114 

0118 

0116 

0117 

0120 

0121 

0122 

0123 

0124 

0126 

0126 

0127 

0130 

0131 

0132 

0133 

0134 

0138 

0136 

0137 

0140 

0141 

0142 

0U3 

0144 

0145 

0146 

0147 

019P 

0181 

0192 

0193 

0154 

0199 

0196 

0197 

0160 

0161 

0162 

0103 

0164 

0168 

0166 


/ 

/ 

/ 


3430 

1100 

INTCLR t 

TAD 

KNOP 


3431 

3783 


DCA I 

PNTSCN 


3432 

7307 


FOUR 



3433 

1383 


TAD 

PNTSCN 


3434 

3393 


DCA 

PNTSCN 


3439 

2394 


ZSZ 

MNTMAX 


3436 

9230 

J 

JMP 

INTCLR 




9 

/ 

i 

SETUP CONTROL CHAR TRAP 

3437 

1363 

9 

TAD 

PCNTRL 


3440 

3177 


OCA 

TTPCTL 


3441 

6601 

4 

ION 


/MON IS RESTORED 
/HOPEPULLY 



9 

/ 

A 

normal 

OR ERROR 

EXIT? 



9 

ASMIFZ 

ERRADD 




A 

ASMSKP 

24 




9 

TAD I 
SNA CLA 

EXIT 

/ERROR EXITT 




JMP 

EOJ020 




EOJ010, 

TAD I 

EXIT 

/CONVERT 




RTL 


/EXIT 




RAL 


/ADDRESS 




OCA I 

EXIT 

/TO 




TAO I 
RAL 

EXIT 

/OCTAL 




ANO 

P7 





TAO 

CZERO 





DCA I 

PEXMES 

/CHAR 




ISZ 

PEXMES 





xsz 

OIGCNT 

/COUNT DIBITS 




JMP 

EOJ010 





MONE 

DCA I 

EXIT 





JMS I 

WRITE 

/PRINT THE EXIT A0DRES3 



A 

EXSTUP 





9 

EJECT 






0167 



/ 




0170 



/ 

CALCULATE START 

OF INDEX 

0171 



/ 

SERVICE! 

1, AND READ INTO FIELD 1 

0172 



/ 




0173 

3442 

1761 

EOJ020, 

TAO I 

PJCST 


0174 

3443 

1347 


TAD 

pcmblk 

/PLUS OFFSET 

0175 

3444 

3332 


DC A 

X3TUFF+4 

0176 

3445 

1750 

3326 


TAD I 

PJCDEV 

/JCL DEVICE 

0177 

3446 


DC A 

XSTUFF 


0800 

3447 

4421 


JM3 I 

READ 


0201 

0808 

3460 

3526 

/ 

X8TUFP 



0803 



/ 

NEW LINE ON THE 

TTY 

0804 

0805 

3461 

4422 

/ 

JMS I 

WRITE 


0206 

0207 

3452 

3564 

/ 

NEWLIN 



0210 



/ 

CALCULATE HIGHEST AVAILABLE CDF 

0211 



/ 




0212 

3453 

6221 

EOJ030, 

CDF 

20 


0213 

3454 

7346 


MTHREE 



0214 

3455 

3743 


DCA I 

F0 

/ATTEMPT TO SET CONSTANT 

0215 

3456 

7325 


THREE 



0216 

3457 

1743 


TAD I 

P0 

/DID IT STORE? 

0217 

3460 

7640 


SZA CLA 



0220 

3461 

5267 


JMP 

EOJ040 

/NOPE 

0221 

3462 

1253 


TAD 

EOJ030 


0282 

3463 

1337 


TAO 

PTEN 


0823 

3464 

3253 


DCA 

EOJ030 

/TRY NEXT FIELD 

0824 

3465 

2345 


ISZ 

FCNTR 

/UNLESS 32 K 

0225 

3466 

5253 


JMP 

EOJ030 


0226 

3467 

1340 

EOJ040, 

TAD 

MTEN 


0227 

3470 

1253 


TAD 

EOJ030 


0230 

3471 

6201 


CDF 

0 


0231 

3472 

3744 


DCA I 

P7744 

/SET PG 37 VALUE 

0232 

0233 



/ 

EJECT 





0234 



/ 




0236 



/ 

WAIT FOR INDEX 

SERVICES 

0236 



/ 




0237 

3473 

4423 


JM5 I 

WAIT 


0240 

3474 

3 S 26 


X8TUFF 



024} 



/ 




0242 



/ 

SETUP MONITOR 1 

:ALL ADDRE8SE8 

0243 



/ 

IN FIELD 1 


0244 



/ 




0246 

3475 

1341 


TAD 

SVNTEN 


0246 

3476 

3610 


OCA 

AX0 


0247 

3477 

1341 


TAD 

SVNTEN 


0250 

3500 

3011 


OCA 

AX i 


0251 

3501 

1336 


TAD 

M7 


0252 

3502 

3002 


OCA 

TMPl 


0253 

3503 

1410 

EOJ050, 

TAD I 

AX0 


0254 

3504 

6211 


CDF 

10 


0255 

3505 

3411 


oca I 

AX 1 


0256 

3606 

6201 


CDF 

0 


0257 

3507 

2002 


1ST 

TMP1 


0260 

3610 

5303 


JMP 

EQJ050 


0261 



/ 




0262 



/ 

INTERPRET SAVE 

REQUESTS 

0263 



/ 




0264 

3611 

1425 


TAD I 

EXIT 

/TEST FOR ERR 

0265 

3512 

7640 


3ZA CIA 


/ERROR EXIT? 

0266 

3513 

6321 


JMP 

EOJ000 

/YES, NO SAVE 

0267 

3514 

6211 


CDF 

10 


0270 

3815 

1743 


TAD I 

P0 

/GET ADOR 

0271 

3516 

3002 


DC A 

TMP1 


0272 

3517 

6212 


GIF 

10 


02?3 

352? 

4402 


JMS I 

TMP1 

/DO THE SAVE 

0274 



/ 




0275 



/ 

CAU the 

: COMMAND INTERPRETER 

0276 



/ 




0277 

3521 

3425 

EOJ060, 

DC A I 

EXIT 

/CLEAR EXIT 

0300 

3522 

1326 


TAD 

XSTUFF 

/PASS LOAD UNIT 

0301 

3523 

0154 


AND 

P77 


0302 

3524 

5725 


JMP X 

.♦1 


0303 

3625 

4000 


CHINXT 


/COMMAND INTERPRETER 

0304 



/ 




0305 



/ 




0306 

3526 

0020 

XSTUFF, 

20 


/SYSTEM UNIT 

0307 

3527 

6211 


CDF 

10 

/FIELD l 

0310 

3530 

0000 


0 


/LOCATION 0 

0311 

3531 

4400 


XSLEN 


/length OF xs, ETC 

0312 

3532 

0000 




/FIRST BLOCK OF XS 

0313 

3533 

0000 


0 



0314 

3534 

0000 


0 



0315 



/ 




0316 

3535 

0007 

P7# 

7 



0317 

3636 

7771 

M7 f 

• 7 



0320 

3537 

0010 

PTEN, 

10 



0321 

3540 

7770 

MTEN, 

• 10 



0322 

3541 

0017 

SVNTEN, 

\7 



0323 

3542 

7600 

P7600, 

7600 



0324 

3543 

0000 

P0, 

0 



0325 

3544 

7744 

P7744, 

7744 



0326 

3543 

7772 

FCNTR, 

•6 



0327 

3546 

7774 

DXGCNTf 

•4 



0330 



/ 




0331 




EJECT 





033a 



/ 



0333 

3S47 

0610 

PCMBLK, CM8LK8 


/XS DISPLACEMENT 

0334 

3850 

0553 

PJCDEV , JOSCTL 



0336 

3581 

0857 

PJCST, J0BCTt, + 4 


0336 

3852 

357 4 

CLLIST t CLEARP-1 



0337 

3583 

0400 

PNTSCN, INTSCN 



03 4 ft 

3554 

7770 

MNTMAX, -INTMAX 



0341 

3305 

3603 

PLDLD, IOADID 



0343 

3556 

1427 

PTFIAG, TTOFLG 



0343 

3857 

1771 

PTCSW, CTLCSW 



0344 

3560 

0467 

RISTP, 1ST ACK 



0346 

3861 

0510 

RM8TP, M8TACK 



0346 

3962 

3605 

PEXMES, EXMESS+12 


0347 

3563 

3633 

PCNTRL, CONTRt 



0360 



/ 



0391 



ASMXFZ 

ERRADD 


0333 



A5MSKP 

10 


0393 



/ 



0364 



EXSTUF f 40 



0398 



CD f 

0 


0396 



EXMESS 



0357 



16 



0360 



0 



0361 



0 



0363 



0 



0363 



/ 



0364 

3564 

0040 

NEWLIN, 40 



0368 

3565 

6201 

CDF 

0 


0366 

3866 

3573 

EXMESS 



0367 

3567 

0002 

a 


/JUST CRLF 

0370 

3570 

0000 

0 



0371 

3971 

0000 

0 



0372 

3572 

0000 

0 



0373 



/ 



0374 

3973 

0215 

EX MESS * 215 



0378 

3574 

0212 

212 



0376 



ASMIFZ 

ERRADD 


0377 



A8MSKP 

14 


0400 



212 



0401 



305 

/E 


0403 



330 

/V 


0403 



311 

n 


0404 



324 

n 


0408 



240 



0406 



300 

/AT 


0407 



240 



0410 



260 

/0 


0411 



260 

/0 


0412 



260 

/» 


0413 



260 

/0 


0414 



/ 



0418 

3575 

1911 

CLEARP # TTIQP 


/LOCATIONS 

0416 

3576 

1421 

TTOQP 


/TO 

0417 

3577 

1931 

TTECNT 


/CLEAR 

0420 

3600 

1214 

ltpqp 



0421 



ASMIFN 

RK00 


0422 

3601 

2413 

DKOP 



0423 



A3MIFN 

RF0Q 


0424 



DROP 



0425 

3602 

0000 

0 


/END OF LIST. 

0426 



/ 



0427 



EJECT 





0430 



/ 




0431 




A8MIFM 

,-3600 


0432 




PACE 



<9433 



/ 




0434 



/ 

CALCULATE THE LOADER BLOCK 

0435 



/ 

LOAD IT 

, AND START LOADING 

0436 



/ 




0437 

3603 

1 820 

LOADLD, 

TAD I 

P8YS 


0440 

3604 

3224 


OCA 

LDLDP 


0441 

3606 

1521 


TAD I 

PJBLK 


0442 

3606 

1222 


TAD 

LDDISP 

/ADD DISPLACEMENT 

0443 

3607 

3230 


OCA 

LOLDP*4 


0444 

3610 

4421 


JMS I 

READ 


0445 

3611 

3624 


LDLDP 



0446 

3612 

4423 


JMS I 

WAIT 


0447 

3613 

3«24 


LDLDP 



0450 

3614 

1223 


TAD 

RSTCTL 

/RESTORE CONTROL 

0451 

3615 

3l77 


DCA 

TTPCTL 

/CHAR HANOLER 

0452 

3616 

6212 


CIP 

10 


0453 

3617 

5626 


JMP I 

LDLDP+2 


0454 



/ 




0455 

3620 

0653 

P8Y8, 

JOBCTL 



0456 

3621 

0657 

PJBLK i 

JOBCTL*4 


0457 

3622 

0021 

IDDISP, 

CMBLK8+X8BLKS 

/LOADER RELATIVE BLOCK NO 

0460 

3623 

1637 

R3TCTL * 

TTINRM- 

1 


0461 



/ 




0462 

3624 

0020 

LDLDP, 

20 



0463 

3625 

6211 


CD7 

10 


0464 

3626 

7000 


BXNIOD 



0465 

3627 

0400 


400 



0466 

3630 

0000 


t-t 



0467 

3631 

0000 


0 



0470 

3632 

0000 


0 



0471 



/ 




0472 




EJECT 








0473 


04/4 


0473 


@476 

3633 

0 77 

3634 

0800 

3635 

0501 

3636 

0802 

3637 

0503 

364tfl 

0304 


0305 


0506 


0807 

3641 

0310 

3642 

05U 

3643 

0312 

3644 

0613 


0514 

1649 

0615 

1646 

0616 

1647 

0517 

165(3 

0620 

1681 

0521 

1652 

0622 


0323 


0524 

3653 

0325 


0326 


0527 

3654 

0530 

3655 

0631 

3656 

0832 

3637 

0533 

3660 

0534 

3661 

0533 

3662 

0336 

3663 

0837 

3664 

0540 

3665 

0541 

3666 

0542 

3667 

0843 

3«7f) 

0544 

3671 

0348 

3672 

0546 

3673 

0547 

3674 

0850 

3675 

0631 

3676 

0332 

3677 

0533 

3700 

0334 

3701 

0833 

3702 

0836 

3703 

0557 


0560 



/ 

/ 

/ 

0 P00 CONTRL, 

1633 

1313 

2933 

7640 

3633 

/ 

/ 

/ 

1620 

0133 

3320 

6141 

1020 

0020 

0004 

0011 

0001 

0002 


3714 


3715 

1716 

3717 

4421 

3720 

4423 

3780 

1312 

3010 

6211 

1410 

7640 

3425 

1410 

7640 

5425 
1410 

1310 
7640 

5426 
1410 

1311 
7640 
3425 


CONTROL CHARACTER TRAP 
0 

TAD I CONTRL /SET CHAR 

TAD MCTLD /IS IT CTL DT 

182 CONTRL 

37. A CL A 

JMP I CONTRL /IGNORE 

CONTROL 0 TYPED. SET DIAL-MS 
TAD I P5Y8 

AND P70 /SET DIAL SYS UNIT 

DC A DIALS 

LINC 
LMOOE 
LOA I 
20 

ESP /IO PRESET 

CLR 

AXO /STOP TAPE 

POP 

PMODE 


ASMIPN 

RK08 


OCA 

I 

PDKQP 

/CLEAR DISK OPS 

ASMIPN 

RP08 


DC A 

I 

PDRQP 

/BOTH DISKS 

DC A 

I 

PLTQP 

/ALSO TAPE 

TAD 

I 

PLTNO 

/**NO PHONY 

OCA 

I 

PLINC 

/ **TAPE INTS 

JMS 

I 

READ 


DI ALB 


/GET MS I/O 

JMS 

I 

WAIT 


DIALB 



TAD 


M3 


DCA 


AX0 


CDF 


10 

/CHECK VALIDITY 

TAD 

i 

AX0 


azA 

CLA 



JMP 

I 

EXIT 

/BAD NEWS 

TAD 

I 

AX0 


SZA 

CLA 



JMP 

I 

EXIT 

/NOT DIAL 

TAD 

I 

AX0 


TAD 


DMST1 


SZA 

eLA 



JMP 

I 

EXIT 


TAD 

I 

AXO 


TAD 


OMST2 


SZA 

CLA 



JMP 

I 

EXIT 





% 


EJECT 



0801 



/ 



0862 



/ 

IT LOOKS LIKE DIAL 

0863 



/ 



0564 

3704 

6002 


107 

/DIAL CANT TAKE INTERRUPTS 

0666 

3705 

6212 


CIF 

10 

0866 

3706 

6707 


JMP I 

.*1 

0667 

3707 

7777 


7777 

/BOOTSTRAP 

0870 



✓ 



0871 

3718 

2606 

DMST1, 

-5772 


0872 

3711 

2005 

DP3T2, 

-8773 


0573 

3712 

7773 

M5, 

■ 5 


0674 

3713 

7574 

MCTID, 

-204 


0876 




ASMIFN 

RK08 

0876 

3714 

2413 

PDKOP, 

OKQP 


0677 




ASMIFN 

RF08 

0600 



PDRQP, 

DROP 


0601 

3716 

1214 

pltqp, 

ltpqp 


0602 

3716 

0484 

PLTNOi 

LTNONE 


0603 

3717 

0480 

PIXNC, 

LTLINC 


0604 



/ 



0605 

3720 

0020 

DXAIB, 

20 

/DIAL UNIT 

0606 

3721 

6211 


CDF 

10 

0607 

3722 

7600 


7000 


0610 

3723 

1600 


1000 


0611 

3724 

0322 


322 


0612 

3725 

0000 


0 


0613 

3726 

0000 


0 


0614 



/ 



0615 



/ 



0616 




ASMIFM 

CMINIT-. 

0617 



ERROR 


/CONFLICT 111 

0620 



/ 



0621 



/ 



0622 




EJECT 




06SS 

0624 



/ 

PMQOE 



0626 




FIELD 

1 


0686 

0627 



/ 

*7000 



0690 



/ 

BINARY 

LOADER 


0601 



/ 




063a 



/ 

READ INTO THE 

INDEX AREA WHEN AN APPLICATION 

0633 



/ 

PROGRAM 

13 TO 

BE LOADED. FILE DESCRIPTOR 

0634 



/ 

FOR PROGRAM FILE IS AT LOCATION 7618, FIELD 

0636 



/ 




0696 

7000 

6801 

BINLODf 

COP 

0 


0637 

7001 

1667 


TAD I 

PIPD0 

/LOAD UNIT 

0640 

7008 

6811 

KCDF10, 

CDF 

10 


0641 

7003 

0878 


AND 

SIXBIT 


0642 

7004 

3614 


DC A I 

PLDP0 


0643 

7005 

6801 


CDF 

0 


0644 

7006 

1070 


TAD I 

PLPO10 

/START BLOCK 

0646 

7007 

6811 


COP 

10 


0646 

7010 

36 77 


DC A I 

PL0P4 


0647 

7011 

1361 


TAD 

P10 

/THIS FIELD 

0650 

7018 

6232 


CIP 

0 


0651 

7013 

448) 


JMS I 

READ 

/READ HEADER 

0652 

7014 

7318 

PIDP0# 

LOPARM 



0653 

7015 

1871 


TAD 

3IEBEN 


0654 

7016 

6201 


CDP 

0 


0655 

7017 

3010 


DC A 

AX0 

/SET FIELD 1 AUTO INDEX 

0656 

7020 

3410 


DC A I 

AX0 


0657 

7021 

3410 


DC A I 

AX0 

/CLEAR 

0660 

70 82 

3410 


DC A I 

AX0 

/SIX 

0601 

7023 

3410 


OCA I 

AX0 

/FIELD 0 

0602 

7024 

3410 


DC A I 

AX0 

/AUTO»INDEX 

0663 

0664 

7025 

3410 

/ 

DC A I 

AX0 

/REGISTERS 

0666 



/ 

NOW theres nothing we CAN DO UNTIL header IS 

0666 

0667 

7026 

6811 

/ 

CDF 

10 


0670 

7027 

1614 


TAD I 

PLDP0 


067l 

7030 

771P 


SPA CLA 


/WAIT FOR CLEAR BIT 

0672 

7031 

5887 


JMP 

• *2 


0673 



/ 




0674 



/ 

MOVE STARTING 

INFORMATION TO MONITOR 

0675 

0676 

7032 

4366 

/ 

JMS 

LDMOV 


0677 

7033 

7753 


MEAD*384«t 

/FROM HEADER 

070gi 

7034 

1374 


LD8TRT- 

1 

/TO FINAL LOADER 

0701 

0708 

7335 

7775 

/ 

«3 



0703 

7036 

6811 


COP 

1 ® 


0704 

7037 

1674 


TAD I 

PBCNT 

/GET BLOCK COUNT 

0708 

7040 

7041 


CIA 



0706 

7041 

3008 


OCA 

TMP1 


0707 

7048 

1873 


TAD 

M10 

/BLOCKS IN FIELD 0 

0710 

7043 

3004 


DC A 

TMP3 

/BEFORE PAGE 37 

0711 

0718 



/ 

EJECT 





0713 



/ 




0714 



/ 

18 THERE 

: BINARY 

POR PAGE 0, FIELD 07 

07 IS 



/ 




0716 

7044 

4753 


JHS I 

pgbit 

‘/GET THE BIT 

0717 

7045 

5300 


JMP 

UDF0 

/NOT USED 

0720 

7046 

1352 


TAD 

P400 


0721 

7047 

3676 


OCA I 

PLDP2 

/READ TO 400 r FIELD 1 

0722 

7050 

2677 


ISZ I 

PLDP4 

/FIRST BINARY BLOCK 

0723 

7051 

1351 


TAD 

P10 

/THIS FIELD 

0724 

7002 

6202 


CIF 

0 


0726 

7053 

4421 


JHS I 

READ 

/FIRST BINARY BLOCK 

0726 

7064 

7315 


LDPARM 



0727 

7055 

1«14 


TAD I 

PLDP0 


0730 

7066 

7710 


SPA CLA 


/WAIT 

0731 

7057 

6255 


JMP 

• •2 


0732 

7060 

4356 


JHS 

LDMOV 

/MOVE CERTAIN LOCATION 

0733 

7061 

0443 


444-1 


/FROM THIS FIELD. PAGE 

0734 

7062 

0043 


44*1 


/TO FIELD 0. PAGE 0 

8736 

7063 

7704 


•74 



0736 

7064 

2002 


ISZ 

TMP1 

/LAST BLOCK? 

0737 

7065 

5300 


JHP 

WDF0 

/NO • OK 

0740 

7066 

8750 


JHP I 

PLDGO 

/ YE8 

0741 



/ 




0742 

7067 

7612 

PLFD0, 

7612 


/LOAD UNIT 

0743 

7070 

7622 

PLFO10, 

7622 


/START BLOCK 

0744 

7071 

0007 

SIEBEN, 

7 



0745 

7072 

0077 

8IXBIT, 

77 



0746 

7073 

7768 

h!6, 

-16 



0747 

7074 

7767 

PBCNT t 

HEAO+357 


0750 

7075 

7316 

PLDP1, 

LDPARM+l 


0751 

7076 

7317 

PLDP2, 

LDPARM+2 


0752 

7077 

7321 

PLDP4, 

I.DPARM+4 


0753 



/ 




0754 




EJECT 





0736 



/ 




07 56 



/ 

READ WHATEVER 

LOADS BELOW 7400, FIELD 0 

0757 



/ 




0760 

7100 

4763 

LDF0, 

JM8 I 

PGBIT 

/GET NEXT BLOCK CONTROL 

0761 

7101 

5316 


JMP 

NLB 

/EMPTY BLOCK 

0762 

7102 

1614 


TAD I 

PLOP0 


076J 

7103 

7710 


3PA CLA 


/IS LAST READ DONE? 

0764 

7104 

5302 


JMP 

.*2 

/WAIT FOR XT 

0765 

7106 

4754 


JMS I 

PGCBA 

/GET AODR OF THIS 

0766 

7106 

2677 


I8Z X 

PLDP4 

/BUMP BLOCK NO, 

W767 

7107 

1351 


TAD 

P10 


0770 

7110 

6202 


CXF 

0 


0771 

Fill 

4421 


JMS X 

READ 

/READ THIS 

0772 

7112 

7315 


LDPARM 



0773 

7113 

2002 


ISZ 

TMP1 


0774 

7114 

7410 


SKP 



0775 

7115 

5760 


JMP 1 

PLDGO 


0776 

7116 

2004 

NIB, 

ISZ 

TMP3 

/BUMP CORE COUNTER 

0777 

7117 

5300 


JMP 

LDF0 


1000 



/ 




1001 



/ 

LAST BLOCK OP 

FIELD 0 

1002 



/ 




1003 

7120 

4753 


JMS X 

PGBIT 

/LOAD IT? 

1004 

7121 

5785 


JMP X 

PMVLD 

/NO 

1006 

7122 

1614 


TAD I 

PLDP0 


1006 

7123 

7710 


SPA CLA 



1007 

7124 

5322 


JMP 

<•2 


1010 

7125 

1202 


TAD 

KCDF10 


i® 11 

7126 

3675 


DCA I 

PLDPi 

/READ TO FIELD t 

1012 

7127 

1352 


TAD 

P400 

/LOCATION 400 

1013 

7130 

3*76 


OCA X 

PLDP2 


1014 

7131 

2677 


XSZ X 

PL0P4 

/BUMP BLOCK NO 

1016 

7132 

1351 


TAD 

P10 


1016 

7133 

6002 


CIF 

0 


1017 

7134 

4421 


JMS I 

READ 

/GET LAST BLOCK OF FIELD 0 

1020 

7135 

7316 


LDPARM 



1021 

7136 

1735 


TAD I 

,*1 


1022 

7137 

7710 


SPA CLA 


/DONE? 

1023 

7140 

5336 


JMP 

,*2 

/NO - WAIT 

1024 

7141 

4356 


JMS 

LDMOV 

/COPY PAGE 36 

1026 

7142 

0377 


400* 1 



1026 

7143 

7377 


7400*1 



1027 

7144 

7600 


*200 



1030 

7145 

2002 


ISZ 

TMP1 

/LAST BLOCK OF BINARY? 

1031 

7146 

8765 


JMP I 

PMVLD 

/NO * MUST LOAD UPPER FIELDS 

1032 

7147 

0750 


JMP I 

.*1 

/YES - START IMMEDIATELY 

1093 

7150 

7225 

FLDGO, 

LOCO 



1034 



/ 




1036 

7151 

0010 

PXZ, 

10 



1036 

7152 

0400 

P 400, 

400 



1037 

7153 

7244 

PGBIT, 

GETBIT 



1040 

7154 

7266 

PGCBA, 

GETCBA 



1041 

7165 

7324 

PMVLD, 

MOVLOD 



1042 

1043 



/ 

EJECT 





1044 



/ 




1049 



/ 




1046 



/ 

LOMOV 

• COPY 

FROM FIELD 

1047 



/ 




10SR 

7156 

0000 

LOMOV, 

0 



1091 

7187 

1766 


TAD I 

LOMOV 

/FROM 

1098 

7160 

3011 


DCA 

AX 1 


1093 

7 le i 

8356 


ISZ 

LOMOV 


1094 

7162 

1706 


TAD I 

ldmqv 

/TO 

1099 

7163 

3012 


OCA 

AX2 


1096 

7164 

2356 


ISZ 

LOMOV 

*■ 

1097 

7169 

1756 


TAD I 

LOMOV 

/length 

1060 

7166 

3003 


DCA 

TMP2 


1061 

7167 

2356 


ISZ 

LOMOV 


1068 

717 0 

1411 

LDMV, 

TAD I 

AX 1 


1063 

7171 

6201 

LDMCDF, 

CDF 

0 


1064 

7172 

3412 


DCA I 

AX2 


1069 

7173 

6211 


CDF 

10 


1066 

7174 

2003 


ISZ 

TMP2 


1067 

7179 

5370 


JMP 

LOMV 


1070 

7176 

5756 


JMP I 

LOMOV 


1071 



/ 




1072 




EJECT 





1073 

1070 

1073 

1076 

1077 
1100 
1101 
1108 
1103 
1104 
1103 
110b 
1107 
1110 
1111 
1118 

1113 

1114 
1113 
1116 
1117 
1180 
1121 
1188 

1123 

1124 

1125 

1126 
1127 

1130 

1131 


1134 

1135 

1136 

1137 

1 140 

1141 

1142 

1143 

1144 
1143 

1146 

1147 
1190 
1131 

1192 

1193 
1134 
1133 
1156 
L137 
1160 
1161 


7200 4244 

7201 3200 

7202 1315 

7203 7710 

7204 3202 

7205 2321 

7206 4266 

7207 1242 

7210 1316 

7211 7640 

7212 3217 

7213 1320 

7214 1317 

7215 7650 

7216 3033 

7817 6284 

7220 6202 

7221 4710 

7228 7715 

7223 2241 

7224 5200 

7228 1315 

7226 7710 

7827 5225 

7230 6203 

7231 5632 

7832 1375 


7233 6801 

7234 1321 

7235 3643 

7236 6202 

7237 5640 

7240 1371 

7241 0000 

7242 0000 

7243 0065 


/ 

PAGE 

/ 

/ 

/ SECOND SECTION OF THE LOADER 

/ 

/ WHEN WE GET HERE, FIELD 0 HAS BEEN LOAOEO. 

/ THIS CODE HA8 BEEN MOVED TO 7600 IN THE HIGHEST 

/ FIELD IN THIS MACHINE. THE BIT MAP HAS BEEN 

/ MOVED TO 7760 OF THIS FIELD, AND LQLI3T IN THE 

/ MONITOR IS SET UP TO LOAD THE LAST BLOCK 

/ INTO THIS LOCATION. 

/ 

LD2, JMS GETBIT /NEXT BIT USED? 

JMP ,-l /NO 

TAD LOPARM /LAST ONE DONE? 

SPA CLA 

JMP ,«2 /NO » WAIT FOR IT 

ISZ LDPARM*4/BUMP BLOCK NO 

JMS GETCBA /CALCULATE BLOCK ADOR 

TAD MHICDF 

TAD LOPARM+l/COMPARI COFS 

SZA CLA 
JMP LONXT 

TAD M7400 

TAD L0PARM+2/C0MPARE ADDRESSES 

SNA CLA 

JMP GOLOAD 

LONXT, RIF 

CIF 0 

JMS I PREAD 

LDP ARM 17400 
ISZ REMAIN 

JMP L02 

LOGO, TAD LOPARM 

SPA CLA 
JMP LOGO 

CIF CDF 0 

JMP I ,♦! 

LDSTRT 

/ 

/ LAST BLOCK OVERLAYS THIS 

/ 

GOLOAD, CDF 0 

TAD LDPARM*4/LAST BLOCK NO 

DC A I LSTBLK 

CIF 0 /GO TO MON 

JMP I ,*l 

LDLAST 

/ 

REMAIN, 0 
MHICDF, 0 
LSTBLK, LDLI8T+4 
/ 


EJECT 



162 / 

163 / GET NEXT BIT FROM BLOCK MAP 


104 



/ 

SKIP 

IF 

BIT IS 

SET 


160 



/ 






166 

7244 

0000 

GETBIT# 

0 





187 

7245 

7300 


CLA 

CLL 




170 

7246 

2063 


ISZ 


6B8C 

/TEST BIT COUNTER 


171 

7247 

5055 


JMP 


GNB 



172 

7250 

2264 

, 

ISZ 


GBWD 



173 

7251 

1664 


TAO 

1 

GBWD 

/GET NEXT WORD 


174 

7252 

3065 


OCA 


GBCWO 

/SET CURRENT WORO 


176 

7253 

1311 


TAD 


M10 

/GET 8 BITS FROM THIS 

WORD 

176 

7254 

3263 


OCA 


GBBC 



177 

7255 

1265 

GNB# 

TAD 


GBCWD 

/CURRENT WORD 


206 

7256 

7004 


RAL 



/NEXT BIT TO LINK 


201 

7257 

3265 


OCA 


GBCWD 



202 

7260 

7490 


SZl 



/IS BLOCK USED* 


209 

7261 

2244 


ISZ 


GETBIT 

/YES 


204 

7262 

5644 


JMP 

1 

GETBIT 



205 



/ 






206 

7263 

7777 

GBBC# 

• 1 



/BIT COUNTER 


207 

7264 

7757 

GBWD# 

MEAD4360 

l-i 

/ADDR OF TABLE 


210 

7265 

0000 

GBCWD, 

0 



/CURRENT WORD 


211 



/ 






212 



/ 






213 



/ 

GET 

ADDRESS OF 

CURRENT BLOCK 


214 



/ 






215 

7266 

0000 

GETCBA| 

0 





216 

7267 

1264 


TAD 


GBWD 

/CURRENT BLOCK WORD 


217 

7270 

7P06 


RTL 





220 

7271 

0313 


AND 


L70 

/FIELD IN 6-8 


221 

7272 

1314 


TAO 


LCDF 



£32 

7273 

3316 


OCA 


LDPARH+1/8ET I/O FIELO 


223 

7274 

1263 


TAO 


GBBC 

/GET BIT COUNTER 


224 

7275 

0312 


AND 


SEVEN 



225 

7276 

7112 


CLL 

RTR 




226 

7277 

7012 


RTR 





227 

7300 

3317 


OCA 


LOPARM*2/ADORESS SHIFTED LEFT 

1 

230 

7301 

1264 


TAO 


GBWD 



251 

7302 

7010 


RAR 



/half-field to link 


232 

7303 

7200 


CLA 





233 

7304 

1317 


TAO 


LDPARM+2 


234 

7305 

7010 


RAR 





235 

7306 

3317 


OCA 


LDPARM42/FULL ADDRESS 


236 

7307 

5066 


JMP 

I 

GETCBA 



237 



/ 






240 

7310 

0000 

PREADf 

0 



/ADDR OF READ ROUTINE 

IN MON 

241 

7311 

7770 

M10, 

• 10 





242 

7312 

0007 

SEVEN# 

7 





243 

7313 

0070 

170# 

70 





244 

7314 

6201 

LCDF | 

COP 





245 



HEAD* 

7400 



/header loc 



246 / 

247 


EJECT 


23B 



/ 


231 



/ 

I/O CONTROL LIST 

292 



/ 


293 

7313 

0020 

LDPARM, 

20 

294 

7316 

6? 11 


CDF 10 

239 

7317 

7400 


head 

296 

7320 

0400 

M7400, 

400 

297 

7321 

0000 


0 

26B 

7322 

0000 


0 

261 

7323 

0000 


0 

262 



/ 


293 



LOIND* 

• 

264 



/ 


269 




A3MIFM 7360-LDEND 

266 



ERROR 

/INSUFFICIENT SPACE FOR BIT MAP 

267 



/ 


27B 




EJECT 


1271 



/ 




1272 



/ 

THERE I! 

CODE 

TO BE LOADED ABOVE FIELD 0 

1273 



/ 

MOVE PART OF LOADER TO TOP OF CORE 

1274 



/ 




1275 

7324 

6201 

MOVLOD, 

COF 

0 


1275 

7325 

1767 


TAO I 

PH1CDF 

t 

1277 

7326 

6211 


CDF 

10 


1300 

7327 

3372 


DCA 

LSTCDF 


1301 

7330 

13?2 


TAD 

ISTCDF 


1302 

7331 

3773 


DCA I 

PMVCDF 


1303 

7332 

1372 


TAD 

LSTCDF 


1304 

7333 

7041 


CIA 



1305 

7334 

3942 


DCA 

MHICDF 


1306 

733s 

1021 


TAD 

READ 


1307 

7336 

3310 


DCA 

PREAD 

/MON CALL ACOR 

1310 

7337 

1002 


TAD 

TMP1 


1311 

7340 

3241 


DCA 

REMAIN 


1312 

7341 

1315 


TAD 

LOPARM 


1313 

7342 

7710 


SPA CLA 



1314 

7343 

5341 


JMP 

• •2 


1315 

7344 

4774 


JMS I 

PLDMOV 


1316 

7345 

7177 


LD2-1 


/FROM HERE 

1317 

7346 

7 577 


10217400 

• 1 

/TO LAST BLOCK 

1320 

7347 

7854 


LD2-LDEND 


1321 

7350 

4774 


JMS I 

PLDMOV 

/MOVE HEADER STUFF 

1322 

7351 

7757 


HEAD+360 

• 1 


1323 

7352 

7757 


HEAD+360 

1-1 


1324 

7353 

7760 


-20 



1325 

7354 

1372 


TAD 

LSTCDF 


1326 

7355 

6201 


CDF 

0 


1327 

7356 

377l 


OCA I 

PLDL1 


1330 

7357 

1313 


TAD 

LDPARM 


1331 

7360 

3770 


DCA I 

PLDL0 


1332 

7361 

7305 


TWO 



1333 

7362 

1372 


TAD 

LSTCDF 

/CDF CIF 

1334 

7363 

3364 


DCA 

.*1 


1335 

7364 

6203 


GIF CDF 



1336 

7365 

5766 


JMP I 

.♦1 

/GO TO L02 IN TOP 

1337 

7366 

7600 


LD217400 

/OF HIGHEST fielo 

1340 



/ 




1341 

7367 

7744 

PNICDF, 

7744 



1342 

7373 

0861 

PLDL&, 

LDLI3T 



1343 

7371 

0862 

FLOW* 

inilST*! 


1344 

7372 

0000 

LSTCDF1 

0 



1345 

7373 

7 17 1 

pmvcdf# 

LDMCDF 



1346 

7374 

7156 

PLDMOV, 

LOMOV 



1347 



/ 




1350 



/ 




I35i 



/ 




1352 




ASMIFN 

CREF 


1353 




LISTAPE 

CREF 


1384 



/ 




1355 



/ 

JL02 





NO ERRORS 

OKREAO 

2562 

INTCLR 3430 

abort 

0026 

DKRTRY 

2566 

INTEX 0267 

ALLINT 

0372 

* 


INTLEN 0 6 ; 6 

A»a 

0010 



INTMAX 0010 

AX 1 

0011 

DKSTAT 

2567 

INTMX4 0040 

AX3 

0012 

QKNC 

2542 

m 

BACKSL 

1750 

OLCA 

6755 


BlNLOQ 

7000 

DLDC 

6732 


GARRET 

17 51 

DLOR 

6733 

INTPQP 0030 

CLEaRP 

3575 

GLOW 

6735 

INTPSH 0027 

CLLIST 

3552 

DIWC 

6753 

INTSCN 0400 

CMaUKS 

0010 

DM3T1 

3710 

INTSTK 0004 

GMXNIT 

4000 

0M3T2 

3711 

1NTST4 0020 

QONTRL 

3633 

DOLLAR 

1753 

IOCOH 1010 

CREF 

0014 

OQCDP 

1117 

IOQISK 2400 

CR18 

0000 

QQUEUE 

0146 

IQQISP 2201 

CTLCSW 

1771 

OROS 

6741 

IOHLT 1026 

qZERO 

0161 

OSKD 

6746 

IOLTP 1200 

DCLA 

6751 

D8KD0 

2501 

IOTFND 0672 

DELS 

6742 

D6KE 

6747 

I0T8CN 0063 

OEQ 

1103 

DSftINT 

2423 

I0T8LP 0660 

OFUNK 

0316 

ENQ 

1030 

IQTTV 1400 

DIAL 

0000 

EOJ 

3402 

IPERRi 0234 

01 ALB 

3720 

IOJ005 

3412 

IPERR2 0233 

01 ASCI 

2320 

EOJ006 

3420 

IPG37P 6140 

DlBKC* 

2371 

EOJ020 

3442 

IPLDSK 6142 

OICDF 

2227 

EOJ030 

3463 

IPQPR 0236 

0IC49 

2304 

£00040 

3467 

IPPQP 6141 

DJC46 

2306 

EOJ060 

3503 

IPUSHR 0212 

0IC47 

2342 

EDJ060 

3521 

I8ERR 0651 

OIOCHR 

2262 

ERRADO 

0000 

ISETR 0600 

oiov 

2366 

ESCAPE 

1764 

ISTACK 0467 

OIGCNT 

3540 

EXIT 

0025 

I8TLIM 0265 

0IGP 

2002 

exmess 

3573 

ISTP 0016 

DIHCHK 

2300 

FCNTR 

3845 

I5VAC 0333 

OILfFT 

2240 

FOUR 

7307 

ISVFLD 0340 

OILEND 

2315 

5BBC 

7263 

I3VLNK 0346 

DIM00 

2347 

GBCwO 

7265 

ISXIT 0647 

OIM240 

2367 

GBwD 

7264 

ITBLK 6041 

DIM40 

2231 

GETBIT 

7244 

ITBUMP 6057 

DIM47 

2372 

GETCBA 

7266 

ITLCHK 6054 

OIM7B0 

2204 

GNB 

7253 

ITLOF 6037 

DIPH 

2364 

GOLDAO 

7233 

ITLOOP 6036 

OIPH 

2276 

GRIDS 

0000 

1X0 0010 

0IP2 

2277 

HEAD 

7400 

IXi 0011 

01P3 

2370 

HQRZ 

2001 

1X2 0012 

DIP400 

2366 

IAODR 

6151 

173 0013 

DISPLY 

0001 

IBOOT 

6113 

11001 6067 

DISTAB 

2353 

IDNEXT 

6105 

116 6064 

0I3TRP 

2246 

IJCBP 

6136 

1400 6147 

oitabs 

2356 

IJCBP4 

6137 

14000 6066 

0ITBLP 

2344 

IJLEN 

6146 

14015 6065 

DKCLR 

2471 

IJST 

6145 

I600B 6171 

OKCTU 

2441 

ILMDSK 

6070 

JC800T 1330 

OKERR 

2551 

IHLEN 

6144 

J08CTL 0533 

DKPAT 

2563 

IMLOOP 

6163 

JOBENT 3400 

DKLEN 

2564 

IMOVE 

6152 

KCDF 0157 

OKMORE 

2565 

IM3T 

6143 

KCQF10 7002 

oknxt 

2457 

IMVLN 

6172 

KCIF 035a 

DKOP 

2546 

IM400 

6150 

KLDF 0351 

OKQED 

2421 

INFO 

6013 

KLIP 0350 

OKQP 

2413 

INTADD 

0467 

KNOP 0160 



KP12 

0000 

MOVLOO 

7324 

PL0P2 

7076 

LCDF 

7314 

MQUeST 

0713 

PLOP4 

7077 

UD0I8P 

3822 

MSCDEV 

0000 

PLFO0 

7067 

UDEND 

7384 

M3TACK 

0610 

PUFD10 

7070 

LDF0 

7100 

M8TP 

0017 

PUNC 

3717 

LD&O 

7285 

MTEMP 

0002 

pltno 

3716 

LDLA8T 

1371 

MTEN 

3840 

PLTGP 

3715 

LOLDP 

3684 

MTHREE 

7346 

PMOOFi 

1176 

ID1.I6T 

0561 

MT«0 

7344 

PMVCOF 

7373 

• 


mudf 

0746 

PMVLD 

7155 



MWAJT 

0024 

PNTSCN 

3553 



MXOF 

0772 

PGP 

1361 

LOMCDF 

7171 

MX IF 

0776 

PREAD 

7310 

LDHOV 

7156 

MXIT 

0752 

PS£TRn 

2422 

LD«V 

7170 

MX8KP 

0150 

PSYS 

3620 

LDNXT 

7817 

■ 


PTCSW 

3557 

LO p ARM 

7315 



PTEN 

3537 

UPSTPT 

1375 



PTFLAG 

3558 

LD2 

7800 

MX 1 

0751 

PUL1ST 

1026 

UNFED 

1758 

M10 

7311 

PX IF 

0341 

LINT 

0366 

M16 

7073 

P0 

3543 

HOF 

6002 

M80 

8561 

• 


LION 

6001 

M4 

0156 



LOAOLD 

3603 

M6 

3712 



LPd8 

0000 

M7 

3536 

P10 

7151 

LRIB 

6834 

M7400 

7320 

P17 

2557 

LSTBLK 

7243 

nemlin 

3564 

P20 

2560 

LSTCCF 

7378 

NL8 

7116 

P37 

0347 

LT0LEN 

1334 

NQCOF 

1047 

P400 

7152 

ltblk 

1872 

NOCHN 

1072 

P5 

0155 

LTEXIT 

1333 

NQFR8T 

10«5 

P6076 

2556 

LTJCLR 

1381 

NGSRCH 

1042 

P7 

3535 

LTLINC 

0450 

NOUEUE 

0146 

P70 

0153 

ltnone 

0454 

NOXIT 

1055 

P7800 

3542 

LTOP 

1271 

NTR 

0200 

P 77 

0154 

LTPCDF 

1310 

ONE 

7201 

P7744 

3544 

LTPDO 

1233 

PBCNT 

7074 

PRINT 

0144 

LTPINT 

1275 

pcmblk 

3547 

QERR 

1152 

ltpnxt 

1315 

PCNTRL 

3563 

QMLOOP 

1162 

ltpqp 

1814 

PC12 

0000 

AMOVE 

1155 

LTpxob 

1330 

POKQP 

3714 

OTl 

0168 

LTQEO 

1218 

PDPIF 

0310 

QT2 

0163 

LTROE 

1338 

PECHO 

0714 

QT3 

0164 

L T 1 

1331 

PEXMES 

3562 

QT4 

0165 

LXIF 

0334 

PGBjT 

7153 

RCCP 

1368 

LXJMP 

0340 

PGCBA 

7154 

READ 

0021 

L70 

7313 

PMICDF 

7367 

REAOR 

1000 

MCTLO 

3713 

PINT 

0360 

REMAIN 

7841 

MEND 

2877 

PINTAD 

0674 

RF0S 

0000 

MENTER 

0147 

PINTBC 

0675 

RI3TP 

3560 

MESR 

0677 

PJBLK 

3621 

RK06 

0001 

meRror 

0158 

PJCDlV 

3550 

RM3TP 

3561 

MHAI.T 

0031 

PJC3T 

3581 

R8TCTL 

3623 

MHICDF 

7842 

PLOGO 

7150 

RW3W 

0007 

MISTAX 

0266 

PLOLO 

3555 

SETINT 

0020 

MNOP 

0033 

PLOL0 

7370 

SETRK 

1222 

MNTMAX 

3564 

PLOL1 

7371 

SETUOF 

0151 

MNTR 

0725 

PLOMOV 

7374 

SEVEN 

7312 

NONE 

7240 

PLOP0 

7014 

sikben 

7071 

MON8TX 

0004 

FLOPl 

7075 

SIX 

7327 





N 


s IXBI T 

7078 

TTRUXM 

1746 

SPCHAR 

0585 

TT8U6 

1712 

SVNTEN 

3541 

TT8XIT 

1737 

TCgg 

0000 

TTI00 

1765 

three 

7325 

TT 177 

1674 

TMPj 

0002 

TT280 

1675 

TMP2 

0003 

TWO 

7305 

TMP3 

0004 

ULIST 

0543 

TMP4 

0005 

UPARRW 

1764 

tmpb 

0006 

WAIT 

0023 

TMPC 

0807 

waits 

0715 

TT ALT 

1741 

WRITE 

0022 

TT9LEN 

0004 

WRITR 

1003 

TTCLUG 

1415 

XITDF 

0230 

TTcRCP 

1731 

*I t IF 

0231 

TTCTLC 

1766 

X5BLK3 

0011 

TTEBFP 

1540 

X5L E N 

4400 

ttebun 

1534 

X8TUFF 

3526 

TTEBOP 

1532 



TTEBUP 

1633 



TTECHC1 

1500 



TTECHR 

0163 



TTgc^T 

1631 



TTECP 

174 7 



TTECTl 

1755 



TTEOUT 

1464 



TTEI3 

1515 



TTETKP 

0162 



TTI ACT 

1703 



TTICOF 

1705 



TTICHR 

1632 



ttjfsp 

1700 



TTIINT 

1616 



ttinrm 

1648 



TTINXT 

1662 



ttiq 

1600 



TTIOER 

1430 



TTIQP 

1611 



TTI9CN 

1642 



TTJSPC 

1677 



TTITMP 

1703 



TTIXIT 

1672 



ttmbun 

7774 



TTM j 40 

1707 



TT M240 

1676 



TTM40 

1650 



TTQCDF 

1432 



TTOCUR 

1460 



TTOFIG 

1427 



TTOINT 

1437 



TTONXT 

1496 



TTOPUT 

1431 



TTOQ 

1402 



TT OOP 

1421 



TTPCTL 

0177 




I 



00(01 

0002 

/ 

/ 

LOP 8Y3TEM JOB CONTROL CM fa 

0003 

/ 

COMMAND 

INTERPRETER 

0004 

/ 



0005 

/COPYRIGHT 19701 

l OIGITAL EQUIPMENT CORP. 

0006 

/ 


MAYNARD, MASS, 01754 

0007 

/ 



0010 

/ 

VERSION 

0 ! DECEMBER 1, 1970 

0011 

/ 


JUD LEONARD 

0012 

/ 



0013 

/ 

THE HEART OF JOB CONTROL (THROB) 

0014 

/ 



0015 

/ 

ENTER HERE WHEN END-0F-J08 PROCESSING 

0016 

/ 

IS COMPLETE, OR AT END OF DX, 

0017 

/ 



0020 

/ 

THERE ARE SEVERAL "CURRENT STATE" INDICATORS, 

0021 

/ 

WHOSE MEANINGS ARE AS FOLLOWS! 

0022 

/ 



0023 

/ 

MAJOR 

0-FUNCTION FILE IS BEING ENTERED 

0024 

/ 


1"OUTPUT FILES ARE BEING ENTERED 

0025 

/ 


2-INPUT FILES ARE BEING ENTEREQ 

0026 

/ 


3-PARAMETER STRING 

mi 

/ 

/ 

FILCNT 

HAS MEANING ONLY IN MAJOR STATES 1 AND 2, 

0031 

/ 


WHERE IT COUNTS THE NUMBER OF FILES THAT 

0032 

/ 


HAVE BEEN SPECIFIED 

0033 

/ 



0034 

/ 

MINOR 

0-UNIT OR FILENAME IS BEING ENTEREO 

0035 

/ 


1 -FILENAME IS BEING ENTEREO 

0036 

/ 


2-EXTENSION IS BEING ENTEREO 

0037 

/ 


3 -UNIT IS SEQUENTIAL! NO FILENAME 

0040 

/ 


OR EXTENSION IS ALLOWED, 

0041 

/ 



0042 

/ 

CMPARM 

CONTAINS THE UNIT NUMBER OF THE LAST MASS 

0043 

/ 


STORAGE DEVICE SPECIFIED IN THE COMMAND! 

0044 

/ 


IE, THE DEFAULT UNIT. 

0045 

/ 



0046 

/ 

newchr 

CONTAINS A POINTER TO THE BUFFER 

0047 

/ 


LOCATION WHERE A NEW CHARACTER 

0050 

/ 


IS EXPECTED WHEN TYPED, 

0051 

/ 

LSTCHR 

IS ONE LESS THAN NEWCHR, POINTS TO THE 

0052 

/ 


LOCATION THAT WILL BECOME ZERO 

0053 

/ 


IF A RUBQUT IS TYPED, 

0054 

/ 

LSTDEL 

POINTS TO THE LAST (RIGHTMOST) DELIMITER 

0055 

/ 


TYPED. IF THE DELIMITER IS RUBBED OUT, 

0056 

/ 


A BACKSCAN WILL BE NECESSARY 

0057 

/ 


TO RESET THE STATE INDICATORS. 

0050 

0061 

/ 

CREFf14 

/LISTAPE UNIT 

0062 


PMOOE 


0063 

0054 

/ 

*4000 


0065 


EJECT 




13066 

/ 



0067 

/ 

PAGE 0 THINGS 


007? 

/ 

MUST USE EQUATES ONLY, SINCE 

0071 

/ 

PAGE 0 WONT BE 

LOADED WITH JCL. 

0072 

/ 

CONSTANTS MUST 

BE INSERTEO VIA 

0073 

/ 

CMPHOV ROUTINE, 


0074 

/ 



0075 


TMP1P2 


0076 


TMP2-3 


0077 


TMP314 


0100 


TMP4-5 

0 

0101 


TMP5*6 


0102 


TMP6-7 


0103 


AX0-10 


0104 


AX 1 i 11 


0105 


AX2a 12 


0106 


AX3-13 


0107 


AX4nl4 


0110 


AX5-15 


0111 

/ 



0112 

/ 

MONITOR CAUL ADDRESSES 

0113 

/ 



0114 


SETINT-20 


0116 


READ-21 


0116 


WRITE-22 


0117 


WAIT-23 


0120 


EXIT-25 


0121 

/ 



0122 

/ 



0123 


PREFLU844 

/SYSTEM LOAD UNIT 

0124 


HOLDU-49 


0125 


WATRY-46 


0126 


P0UOC-47 

/ADDR USEO BY CMPMOV FOR 

0127 



/LOADING PAGE 0 CONSTANTS 

0130 

/ 



0191 

/ 

FIELD 1 THINGS 


0132 

/ 



0133 

MODS W » 

40 

/INDEX MODIFIED SWITCH 

0134 

DX® 

200 

/DISPLAY INDEX ENTRY POINT 

0135 

XSERV® 

210 

/ENTRY POINT OF INDEX SERVICES 

0136 

/ 



0137 

/ 

MICROPROGRAMMED 

AC CONSTANTS 

0140 

/ 



0141 

ONE o 

CLA IAC 


0148 

TWO® 

ONE CLL RAL 


0143 

THREE® 

TWO STL 


0144 

FOUR® 

TWO RTL 

m 

0145 

SIX® 

THREE RTL 


0146 

MONE® 

CLA CMA 


0147 

MTWO* 

MONE CLL RAL 


0150 

MTHREE® 

MTWO RTL 

* 

0151 

/ 



0152 


DISK-0 

/DO MOT USE DISK WORK AREAS 

0153 

/ 



0194 


EJECT 




0199 



/ 




0196 



/ 

ENTRY 

POINT FROM JLNN. 

0197 



/ 

AC CONTAINS SYSTEM UNIT CODE. 

0160 



/ 




0161 

4000 

3044 

CMJMIT, 

DCA 

PREFLU 

/SAVE IPL UNIT 

0162 

4001 

6602 


JMP I 

.♦1 

/LOAD PAGE ZERO 

0163 

4002 

7000 


CMPMOV 



0164 



/ 




0166 



/ 

HERE STARTS THE 

command interpreter 

0166 



✓ 




0107 

4003 

7200 

CMI000, 

CLA 



0l7p 

4004 

4311 


JUS 

CMI020 

/RESET ALL POINTERS 

0171 

4009 

1333 


TAO 

MICMND 

/command length 

0172 

4006 

3002 


OCA 

TMPi 


0173 

4007 

3410 


OCA I 

AX0 

/clear tty BUFFER 

0174 

4010 

2002 


I8Z 

TMPI 


0176 

4011 

5207 


JMP 

#•2 


0176 

4012 

1331 


TAO 

P219 

/CR AT END OF BUFFER 

0177 

4013 

3410 


DCA I 

AX0 


0200 



/ 




0201 



/ 

START 

THE COMMAND READ 

0202 



/ 




0203 

4014 

4421 


JMS I 

READ 

/START TTY INPUT 

0204 

4019 

0114 


CMREAO 



0209 

4016 

4462 

CMX030, 

JMS I 

CMG 

/GET INDEX FROM 

0206 

4017 

0092 


UNIT 


/PREFERED LOAD UNIT 

0207 



/ 




0210 



/ 

HELP FRAME HAS 

BEEN REPLACED BY AN 

0211 



/ 

ERROR 

MESSAGE, 

OR MAJOR STATE HAS CHANGED 

0212 



/ 

INSERT 

APPROPRIATE HELP TEXT 

0213 



/ 




0214 

4020 

1047 

CHU00, 

TAD 

MAJOR 

/MAJOR STATE 

0216 

4021 

1334 


TAD 

PSTH 

/PLUS POINTER TO STATE HELPS 

0216 

4022 

3002 


DCA 

TMPI 


0217 

4023 

1402 


TAD I 

TMPI 

/GET APPROPRIATE HELP ADDR 

0220 

4024 

3226 


DCA 

.*2 


0221 

4025 

4464 


JMS I 

HLP 

/INSERT HELP 

0222 

4026 

0000 


0 



0223 

4027 

4473 

CMIH0, 

JMS I 

OSP 

/REFRESH DISPLAY 

0224 

4030 

U93 


TAD I 

NEWCHR 

/IS THERE A NEW CHART 

0229 

4031 

7440 


SZA 



0226 

4032 

6461 


JMP I 

DOCHR 

/YES - DO THAT THING 

0227 

4033 

1494 


TAD X 

LSTCHR 

/WAS THE LAST CHAR ERASEOT 

0230 

4034 

7640 


SZA CLA 


0231 

4036 

6227 


JMP 

CM 1110 

/NO * RECYCLE 

0232 







0233 




EJECT 





0834 



/ 




0239 



/ 

THE LAST CHARACTER WAS RUBBED OUT 

0236 



/ 




0237 

4036 

1054 


TAD 

LSTCHR 


0240 

4037 

3063 


DC A 

NEWCHR 

/BACK UP THE POINTERS 

0241 

4040 

7240 


MONE 



0242 

4041 

1094 


TAD 

LSTCHR 


0243 

4042 

3054 


DC A 

LSTCHR 


0244 

4043 

1455 


TAD I 

LSTDEL 

/DID HE RUB A DELIMITER? 

0249 

4044 

7640 


SZA CIA 



0246 

4049 

5227 


JMR 

CM 1110 

/WHEWl NO 

0247 



/ 




0290 



/ 

AT THIS 

POINT, 

HOPEFULLY, WE CAN AS8UME 

0291 



/ 

THAT EVERYTHING 

IN THE BUFFER IS VALID, 

0292 



/ 

THEREFORE, ALL 

WE HAVE TO DO IS SCAN FOR 

0293 



/ 

DELIMITERS TO DETERMINE THE STATE VALUES 

0294 



/ 




0299 

4046 

4311 


JMS 

CMI020 

/RESET 

0296 

4047 

1044 


TAD 

PREFLU 


0297 

4090 

3006 


DCA 

TMP5 


0260 

4091 

1339 

CMI120, 

TAD 

PDLST 


0261 

4062 

3011 


DCA 

AX 1 


0262 

4093 

1410 


TAD I 

AX0 

/FETCH NEXT CHAR 

0263 

4094 

7450 


SNA 



0204 

4099 

5274 


JMP 

CMH42 

/SCAN COMPLETE 

0205 

4096 

3603 


DCA 

TMP2 

/MOLD IT 

0206 

4057 

2054 


ISZ 

LSTCHR 


0207 

4060 

2053 


ISZ 

NEWCHR 

/BUMP POINTERS 

0270 

4061 

1411 

CM 11901 

TAD I 

AX 1 

/GET LIST 

0271 

4062 

7450 


SNA 



0272 

4063 

5251 


JMP 

CM 1120 

/END OF LIST 

0273 

4064 

1003 


TAD 

TMP2 

/compare CHAR 

0274 

4065 

7660 


SNA CLA 



0279 

4066 

6271 


JMP 

CMH40 

/MATCH-GO TO IT 

0276 

4067 

2011 


ISZ 

AX 1 

/ELSE BUMP POINTER 

0277 

4070 

5261 


JMP 

CMI130 


0300 



/ 




0301 



/ 




0302 

4071 

1411 

CM 1140 > 

TAD I 

AX 1 


0303 

4072 

3002 


DCA 

TMP1 


0304 

4073 

5402 


JMP I 

TMP1 


0309 



/ 




0306 



/ 

BACK8CAN COMPLETE 

0307 



/ 




0310 



/ 




0311 

4074 

7240 

CMI142, 

MONE 



0312 

4075 

1047 


TAD MAJOR 


0313 

4076 

7640 


SZA CLA 



0314 

4077 

5306 


JMP CM1145 


0319 

4100 

7346 


MTHREE 



0316 

4101 

1050 


TAD MINOR 


0317 

4102 

7650 


SNA CLA 



0320 

4103 

5306 


JMP CM1145 


0321 

4104 

4470 


JMS I NXTOU 


0322 

4105 

5216 


JMP CMI050 


0323 



/ 




0324 



/ 




0329 

4106 

4462 

CMI145, 

JMS I 

CMG 


0326 

4107 

0006 


TMP5 



0327 

4110 

6220 


JMP 

GMI100 


0330 



/ 




0331 




EJECT 





0332 



/ 

0333 



/ 

6334 



/ 

0336 

4111 

0000 

CH1020 

0336 

4112 

3047 


0337 

4113 

3060 


0340 

4114 

3061 


0341 

4115 

1044 


0342 

4116 

3052 


0343 

4117 

1332 


0344 

4120 

3084 


0345 

4121 

1332 


0346 

4122 

3055 


8347 

4123 

7201 


0350 

4124 

1332 


038} 

4128 

3063 


0362 

4126 

1332 


0383 

4127 

3010 


0384 

4130 

5711 


0055 

0386 



/ 

✓ 

0357 

4131 

0215 

P215, 

0306 

4132 

6751 

PCMNO, 

0361 

4133 

7800 

HLCMND 

0362 

4134 

6066 

P8TH, 

0363 

4136 

6060 

POLST, 

0364 

0366 


/ 



INITIALIZE VARIOUS THINGS 
0 


OCA 

MAJOR 

/FUNCTION INPUT 

OCA 

MINOR 

/DEVICE CODE 

OCA 

FILCNT 

/FIRST FILE 

TAD 

PREFLU 

/DEFAULT DEV 

OCA 

UNIT 


TAD 

PCMND 

/input STRING-1 

OCA 

LSTCHR 

/PREVIOUS CHAR 

TAO 

PCMNO 


OCA 

LSTOEL 

/LAST DELIMITER 

ONE 



TAD 

PCMNO 


OCA 

NEWCHR 

/NEXT CHARACTER 

TAD 

PCMNO 


OCA 

AX0 

/BUFFER POINTER 

JMP I 

CMI020 



216 

CMND-1 
■ 300 
8 TATEH 
DLIST-i 

EJECT 



PAGE 

/ 

/ delimiter handlers 


0366 

0367 

037fc 

0371 



0372 

4200 

7305 

0373 

0374 

4201 

7410 

0375 

4202 

7308 

0376 

4203 

3047 

0377 

4204 

3030 

0400 

4206 

7940 

0401 

420S 

1010 

0402 

4207 

3000 

0403 

4210 

1400 

0404 

4211 

1110 

0405 

4212 

7640 

0406 

4213 

2081 

0407 

4214 

1811 

0410 

4215 

0P77 

0411 

4216 

7040 

04U 

4217 

10»1 

0413 

4220 

7700 

0414 

4221 

8844 

0415 

4222 

1511 

0416 

4223 

0077 

0417 

4224 

7001 

0420 

4225 

7001 

0421 

4226 

3081 

0422 

0423 

4227 

6844 

0424 

4230 

7301 

0425 

0426 

4231 

3047 

0427 

4232 

3050 

0430 

4233 

0051 

0431 

0432 

4234 

5344 

0433 

4235 

7305 

0434 

4236 

3060 

0435 

0436 

4237 

5344 

0437 

4240 

4478 

0440 

4241 

8344 

0441 

4242 

1052 

0442 

0443 

4243 

3006 

0444 

4244 

1010 

0446 

4245 

3055 

0446 

4246 

3847 

0447 

0450 

0451 

4247 

4051 


CMI150, 

THREE 

SKP 


/ 

CHI 152 r 

TWO 



DC A 

MAJOR 


DCA 

MONE 

MINOR 


TAD 

AX0 


DCA 

TMP1 


TAD I 

TMP1 


TAD 

82A CLA 

mcomma 


182 

PILCNT 


TAD I 

PLFAUX 


AND 

CM A 

P7 


TAD 

8 MA CLA 

PILCNT 


JMP 

CMH80 


TAD I 

PLFAUX 


AND 

I AC 

I AC 

P7 


OCA 

PILCNT 


JMP 

CMI180 

/ 

CHI154# 

ONE 



DCA 

MAJOR 

/ 

CM 1166 r 

DCA 

MINOR 


ISZ 

PILCNT 


JMP 

CMII80 

/ 

CHI158, 

TWO 



DCA 

MINOR 


JMP 

CMI180 

/ 

CM Ii60 # 

JM8 I 

GDEV 


JMP 

CMI180 


TAD 

UNIT 


OCA 

TMPS 

f 

CMI180, 

TAD 

AX0 


OCA 

LSTOEL 


JMP I 
CMI120 

. + 1 



EJECT 



/SEMICOLON 

/EQUALS 

/CHECK LAST CHAR 

/WAS LAST COMMAt 
/BUMP COUNT IP NOT 

/ENOUGH OUTPUT FILES? 
/YES 

/INCLUDE LOAD PILE 
/INCLUDE WORKING AREAS 

/SPACE 

/COMMA 

/PERIOD 

/DECODE UNIT 
/HOLD LATEST UNIT 
/UPDATE LAST-DELIMITER 



0452 

0493 



/ 

PACE 



0494 



/ 




0499 



/ 

AC CONTAINS NEW 

INPUT CHAR 

0499 



/ 




0497 

4400 

1315 

CMX200, 

TAD 

MTAB 

/COMPARE TAB 

0460 

4401 

7640 


SZA CL A 



0401 

4402 

5005 


JMP 

CMI210 

/NOT TAB 

0462 

4403 

1316 


TAD 

P240 

/GET BLANK 

0463 

4404 

3453 


OCA I 

NEWCHR 

/CONVERT TO BLANK 

0464 

4409 

1114 

CNX210, 

TAD 

CMREAD 

/TEST TTY PARAM LIST 

0465 

4406 

7700 


SNA CLA 


/WAS IT A TERMINATOR! 

0406 

4407 

9723 


JMP I 

TERM 

/YES 

0467 

4410 

7346 

CMI215 2 

MTMREE 



0470 

4411 

1047 


TAO 

MAJOR 

/PARAM STATE! 

0471 

4412 

7650 


SNA CLA 



0472 

4413 

9246 


JMP 

CMI21S 

/YES - ACCEPT ANYTHING 

0473 

4414 

7346 


MTMREE 



0474 

4419 

1260 


TAO 

MINOR 


0475 

4416 

7650 


SNA CLA 


/ALPHA-NUM ALLOWED! 

0476 

4417 

6294 


JMP 

CMI230 

/NO 

0477 

4420 

1463 


TAO I 

NEWCHR 


0500 

4421 

1317 


TAO 

MCZ 

/COMPARE Z 

0601 

4422 

7540 


8MA SZA 



0602 

4423 

6264 


JMP 

CMI230 

/TOO HIGH 

0603 

4424 

1320 


TAO 

CZMCA 

/COMPARE A 

0604 

0605 

4429 

4426 

s?m 


SMA 

JMP 

CMI220 

/OK • ACCEPT 

0606 

4427 

1321 


TAO 

CAMC0 

/COMPARE 9 

0507 

4430 

7540 


SMA SZA 



0610 

4431 

6264 


JMP 

CMI230 

/TOO HIGH 

0611 

4432 

1322 


TAO 

C0MC0 

/COMPARE 0 

0512 

4433 

7715 


SPA CLA 



0913 

4434 

6264 


JMP 

CMI230 


0614 



/ 




0616 



/ 

NUMERIC 

- IS IT 

VALID AT THIS TIME! 

0616 



/ 




0617 

4435 

7344 


MTWO 



0820 

4436 

1260 


TAO 

MINOR 

/ARE WE IN EXT SCAN! 

0621 

4437 

7660 


SNA CLA 



0622 

4440 

5257 


JMP 

CMI220 

/YES • NUM IS VALID 

0523 

4441 

1054 


TAD 

L8TCHR 


0624 

4442 

7041 


CIA 



0625 

4443 

1055 


TAO 

L3TDEL 

/IS LAST CHAR A DELIM7 

0626 

4444 

7660 


SNA CLA 



0527 

0530 

4445 

5300 

/ 

JMP 

CMI250 

/YES • CANNOT ACCEPT 

0531 



/ 

PARAM STATE — 

TOO MANY CHARS! 

0532 



/ 




0533 

4446 

1065 

CMX21 Sf 

TAO 

L8TDEL 


0534 

4447 

1101 


TAO 

P40 


0535 

4450 

7141 


CIA CLL 



0536 

4491 

1054 


TAO 

LSTCHR 

/CHAR COUNT «*40 

0537 

4492 

7620 


8NL CLA 



0540 

4453 

5257 


JMP 

CMI220 

/OK 

0541 

4464 

4464 


JMS I 

MLP 


0542 

4455 

6451 


LNGH 


/TOO LONG 

0943 

4456 

6302 


JMP 

CMI260 


0544 



/ 




0546 




EJECT 





0046 



/ 




0047 



/ 

CHAR ZS 

acceptable ALPHA-NUMERIC 

0650 



/ 

COR ANYTHING IF 

IN PARAMETER STATE) 

0591 



/ 




0692 

4467 

7200 

CM J220 * 

CLA 



0993 

44601 

2083 


I8Z 

NEWCHR 

/BUMP POINTERS 

0694 

4461 

2094 


ISZ 

LSTCHR 


0599 

4462 

6663 


JMP I 

.♦1 

/REFRESH 

0996 

4463 

0187 


CMI 110 



0697 



/ 




0660 



/ 

MINOR 8TATB IS 

3 CALPHA NOT ALLOWED). OR 

0901 



/ 

CHAR 18 

NOT ALPMA-NUMERXCi NOT A TERMINATOR. 

0662 



/ 

ANO WE l 

IRE NOT 

IN PARAMETER STATE. 

0963 



/ 




0994 

4464 

7200 

CMI230, 

CLA 



0996 

4469 

1324 


TAD 

MDELL 

/TABLE LENGTH 

0666 

4466 

3202 


OCA 

TMP1 


0667 

4467 

1326 


TAO 

PDEL8 

/POINTER TO DELIMITER LIST 

0670 

4470 

3010 


DCA 

AX0 


0671 

4471 

1483 

CM 1240» 

TAD I 

NEWCHR 


0972 

4472 

1418 


TAD I 

AX0 


0673 

4473 

7680 


SNA CLA 


/MATCH? 

0674 

4474 

5312 


JMP 

CMX300 

/YES 

0675 

4475 

2210 


ISZ 

AX0 

/NO • BUMP POINTER 

0676 

4476 

2002 


iaz 

TMP1 


0677 

4477 

8271 


JMP 

CMX240 


0600 



/ 




0601 



/ 

CHAR 18 

INVALID 


0602 



/ 




0603 

4600 

4464 

CM 1280 . 

JMS I 

MLP 

/INSERT HELP TEXT 

0604 

4901 

6412 


INVH 



0606 

4502 

1483 

CM 1260. 

TAD I 

NEWCHR 

/HAS HE DELETED THE CHAR? 

0606 

4603 

7680 


SNA CLA 



0607 

4804 

8460 


JMP I 

NEHH 

/YES • RESUME NORMAL 

0610 

4809 

1114 


TAD 

CMREAD 

/HAS H| TERMINATED? 

0611 

4806 

7700 


SMA CLA 



0612 

4607 

8487 


JMP I 

CM! 

/YES ■ START FROM SCRATCH 

0613 

4910 

4473 


JMS I 

OSP 

/REFRESH DISPLAY 

0614 

4811 

8302 


JMP 

CMI260 


0616 



/ 




0616 



/ 

CHAR IS 

VALID DELIMITER 

9617 



/ 




0680 

4612 

1410 

CMI300I 

TAD I 

AX0 

/handler addr 

8621 

4613 

3008 


DCA 

TMP1 


0622 

4814 

8408 


JMP X 

TMP1 


0683 



( 




0684 

4819 

7807 

MTAB, 

*811 



0686 

4916 

0040 

P840, 

240 



0686 

4817 

7446 

MCZf 

• 332 



0687 

4880 

0031 

CZMCA, 

332-301 



0630 

4821 

8018 

CAMCB. 

301-871 



0631 

4822 

8011 

CBMC0I 

871-260 



0632 

4823 

4000 

TERM. 

CHIQ00 



0633 



/ 




0634 




EJECT 





0636 



/ 




0636 



/ 

TRANSFER 

! TABLE 

FOR DELIMITER CHARACTERS 

0637 
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0640 

4624 

7772 

MDELL, 

-6 



06 41 

4623 

4525 

PDEIS, 

DELS*l 



0642 

4626 

7840 

DEIS, 

*240 


/space 

0643 

4527 

5010 


CNO100 



0644 

4630 

7503 


• 275 


/EQUALS 

0648 

4331 

6017 


CMD200 



0646 

4632 

7505 


•273 


/SEMICOLON 

0647 

4633 

5125 


CMD300 



0630 

4534 

7524 


-254 


/COMMA 

0631 

4635 

5131 


CND400 



0662 

4536 

7506 


•272 


/COLON 

0663 

4537 

5200 


CMDB00 



0664 

4540 

7622 


• 256 


/PERIOD 

0636 

4541 

6361 


CMO600 



0636 



/ 




0637 



/ 

FIND THE 

: NEXT USABLE OUTPUT UNIT 

0660 



/ 




0661 

4542 

0000 

NXU000, 

0 



0662 

4843 

2062 

NXU010, 

I8Z 

UNIT 

/BO TO NEXT 

0663 

4544 

1052 


TAD 

UNIT 


0664 

4543 

1361 


TAD 

MOSKS 

/CHECK FOR TOO BIS 

0668 

4546 

7766 


SMA CLA 



0666 

4547 

3032 


DCA 

UNIT 


0667 

4550 

1052 


TAD 

UNIT 


0670 

4531 

1164 


TAD 

M20 

/CHECK FOR TOO SMALL 

0671 

4952 

7760 


SNA CLA 



0672 

4363 

5356 


JMP 

NXU020 

/TRY IT NOW 

0673 

4534 

1362 


TAD 

P80 


0674 

4553 

3052 


DCA 

UNIT 


0675 

4596 

4467 

NXU020, 

JMS I 

UOK 

/HOWS THIS? 

0676 

4987 

5742 


JMP I 

NXU060 

/FINE 

0677 

4560 

5343 


JMP 

NXU010 

/NOPE, TRY NEXT 

0700 



/ 




0701 

4661 

7730 

MDSK8, 

•30*DI3K 
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P26, 
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/ 




0704 
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LINE TERMINATOR 

STRUCK 
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0711 

4600 

1483 

CMI900, 

TAD I 

NEWCHR 


0712 

4601 

1107 


TAD 

M215 

/COMPARE CR 

0713 

4602 

7650 


SNA CLA 



0714 

4603 

8811 


JMP 

CMI905 

/EQUAL 1 

0716 

4604 

7346 


MTHREE 



0716 

4605 

1047 


TAD 

MAJOR 

/CHICK STATE 

0717 

4606 

7640 


SZA CLA 


/param SCANT 

0720 

4607 

5713 


JMP I 

SCNCTU 

/NOPE 

0781 

4610 

5457 


JMP I 

CMI 

/YUP, MUST RESTART 

0722 



/ 




0723 




EJECT 





0724 / 

0728 / CARRIAGE RETURN 

0726 / 

0787 4611 1(560 CMI905, TAD MINOR 


0730 

4612 

7640 


SZA CLA 

0731 

4613 

7201 


ONE 

0732 

4614 

1051 


TAD 

0733 

4615 

7104 


CLL RAL 

0734 

4616 

3002 


DC A 

0736 

4617 

1602 


TAO 

0736 

4620 

7006 


RTL 

0737 

4621 

1002 


TAD 

0740 

4622 

1316 


TAD 

0741 

4623 

3002 


DCA 

0742 

4684 

3402 


DCA I 

0743 

4625 

3002 


ISZ 

0744 

4626 

5284 


JMP 

0745 

4827 

7346 


MTHREE 

0746 

4630 

1047 


TAD 

0747 

4031 

7440 


SZA 

0760 

4632 

5301 


JMP 

0751 

4633 

1054 


TAD 

0758 

4634 

7041 


CIA 

0753 

4635 

1055 


TAD 

0754 

4636 

7450 


SNA 

0755 

4637 

8275 


JMP 

0756 

4640 

3002 


DCA 

0757 

<9641 

1101 


TAD 

0760 

4642 

1002 


TAD 

0761 

4643 

7700 


SMA CLA 

0762 

4644 

5247 


JMP 

0763 

4645 

1314 


TAD 

0764 

4646 

3002 


DCA 

0765 

4647 

1002 

CMI910, 

TAD 

0766 

4650 

3715 


DCA I 

0767 

4651 

1315 


TAD 

0770 

4682 

3011 


DCA 

0771 

4653 

1065 


TAD 

0772 
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3010 


DCA 

0773 

4655 

1410 

CM 1920 * 

TAD I 

0774 

4656 

0100 


AND 

0775 

4657 

7106 


CLL RTL 

0776 

4660 

7006 


RTL 

0777 

4661 

7006 


RTL 

1000 

4662 

2002 


ISZ 

1001 

4663 

8266 


JMP 

1002 
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3 4 11 


DCA I 

1003 

4665 

8875 


JMP 

1004 

4666 

3003 

CMI930 t 

DCA 

1005 

4667 

1410 


TAD I 

1006 

4670 

0 t 00 


AND 

1007 

4671 

1003 


TAD 

1010 

4672 

3411 


DCA I 

1011 

4673 

2002 


ISZ 

1012 

1013 

1014 

4674 

5255 

/ 

JMP 
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FIICNT 
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TMPi 
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TMPI 
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TMPI 

TMPi 
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LSTDEL 
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AX 1 
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TMP2 
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/ 

EVERYTHING IS 
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/ 
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JM8 I 

WTX 

/WAIT FOR I/O COMPLETION 

1021 
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1113 


TAD 

LSTCOF 

/GET HIGH COF 

1022 

4677 

3512 


OCA I 

PHICOF 
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1023 

4700 
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JHP I 

PLOLO 

/GO TO LOADER LOADER 
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1025 



/ 

NOT IN 

param state 

1026 



/ 




1027 

4701 

7001 

CMI970, 

I AC 



1090 

4702 

7640 


SZA CLA 


/INPUT STATE? 

1031 

4703 

6310 


JHP 

CHI980 

/NO 

1632 

4704 

1055 


TAD 

LSTDEL 


1033 

4705 

7041 


CIA 



1034 

4706 

1054 


TAD 

LSTCHR 


1096 

4707 

7640 


SZA CLA 


/LAST CHAR A DELIMITER? 

1096 

4710 

4712 

CMJ960, 

JMS I 

DOEQ 

/NO - 00 EQUALS PROCESSING 

1037 

4711 

5275 


JHP 

CMI950 

/AND GO 

1040 



/ 




1041 

4712 

5025 

DQEQ ( 

CMD205 



1042 

4713 

4410 

8 CNCTU, 

CMI215 



1043 

4714 

7740 

M401 

-40 



1044 

4715 

7757 

P7757, 

7757 



1045 

4716 

7612 

P7612, 

7612 



1046 



/ 




1047 

4717 

3401 

PLOLD, 

3401 


/ROUTINE TO LOAD THE LOADER 

1050 



/ 




1051 




EJECT 
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/ 

COMMON 1 

PROCESSING FOR SPACE* COMMA. 
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/ 

EQUALS' 

AND SEMICOLON 

1095 



/ 




1056 

4720 

0000 

CMD010, 

0 



1087 

4721 

7346 


MTHRIE 



1060 

4722 

1050 


TAD 

MINOR 


1061 

4723 

7480 


8 N A 


/MINOR STATE 3? 

1062 

4724 

5363 


JMP 

CMQ0S0 

/YES, THERE IS NO NAME 

1063 

4725 

7001 


I AC 



1064 

4726 

7680 


SNA CLA 


/MINOR STATE 2 (EXT)? 

1065 

4727 

7325 


THREE 


/YES - MAX LENGTH 3 CHARS 

1066 

4730 

1361 


TAD 

M6 

/ELSE 6 ALLOWED 

1067 

4731 

1054 


TAD 

LSTCHR 


1070 

4732 

7041 


CIA 



1071 

4733 

1058 


TAD 

LSTDEL 

/TOO MANY CHARACTERS 

1072 

4734 

7710 


SPA CLA 


/SINCE LAST DELIMT 

1073 

4735 

5465 


JMP I 

INV 

/YES - ERROR 

1074 

4738 

1054 


TAD 

LSTCHR 


1075 

4737 

7041 


CIA 



1076 

4740 

1055 


TAD 

LSTDEL 


1077 

4741 

7650 


SNA CLA 


/ZERO CHARS? 

1100 

4742 

8465 


JMP I 

INV 

/YES • ERROR 

1101 

4743 

4471 


JMS I 

MVC 

/MOVE NAME INTO PILE DESCRIPTOR 

1102 

4744 

3386 


OCA 

CMO030 

/STORE PILE OESC ADDR 

1103 

4745 

4472 


JMS I 

WTX 

/WAIT FOR INDEX READY 

1104 

4746 

7240 


MONE 



1105 

4747 

1047 


TAD 

MAJOR 


1106 

4780 

781* 


SPA 


/FUNCTION? 

1107 

4761 

8762 


JMP I 

SPFC 

/YES - CHECK FOR SPECIALS 

1110 

4752 

7680 


SNA CLA 


/OUTPUT? 

1111 

4753 

7328 


THREE 


/YES • GET WA 

me 

4754 

6212 

CMD020 # 

CIP 

10 

/ELSE LOOKUP 

1113 

4765 

4476 


JMS I 

PX3ERV 


1114 

4766 

0000 

CMQ030, 

0 


/FILE DESCRIPTOR ADDR 

1115 

4787 

8000 


CMD070 


/ERROR RETURN 

1116 

4760 

8368 


JMP 

CMD060 

/GO UPDATE POINTERS 

1117 



/ 




1120 

4761 

7772 

M«, 

-6 



1121 

4762 

6000 

SPFC, 

SPF000 


/SPECIAL FUNCTION CHECK 

1122 



/ 
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EJECT 
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/ 
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/ 

MINOR STATE IS 

THREE 
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/ 
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4763 

4471 

CMD050, 

JMS I 
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/SETUP FOB 
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7200 
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2051 

CMD060I 

ISZ 

FILCNT 
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OCA 

MINOR 

/CLEAR MINOR STATE 
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4767 

2054 


X9Z 

LSTCMR 
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4770 

2053 


ISZ 

NEWCHR 


145 

4771 

1054 


TAO 

LSTCHR 
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4772 

3055 


OCA 

L3TDEL 


147 

4773 

1122 


TAO 

CMPARM 

/RESET DEFAULT UNIT 

14tf 

4774 

0100 


AND 

P77 


141 

4775 

3052 


OCA 
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4776 
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JMP I 

CMO010 
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/ 
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/ 

CODE 0 
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/ 




154 
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1207 

CM0070, 

TAO 

ERLST 
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155 

5001 

3003 


DCA 

TMP2 


156 

5002 

1403 


TAO I 

TMP2 


157 

5003 

3205 


OCA 

.♦2 


160 

5004 

4464 


JMS I 

HLP 

/INSERT APPROPRIATELY 
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5005 

0000 


0 
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5006 

5466 


JMR I 

DSPEH 

/THE PAUSE THAT REFRESHES 
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/ 
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5007 

6072 

ERLST, 

ERRORH 



165 



/ 




166 



/ 

DELIMITER IS SPACE 
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/ 




170 

5010 

1047 

CMD100, 

TAO 

MAJOR 


171 

5011 

7640 


SZA CLA 


/STATE 0? 

172 

5012 

5465 


JMP I 

INV 

/NO, BLANK IS INVALID 

173 

5013 

4474 


JMS I 

MJSC 

/DO PROCESSING FOR STATE CHANGE 

174 

5014 

7201 


ONE 
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5015 

3047 


DCA 

MAJOR 

/OUTPUT STATE 
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5016 

5460 


JMP I 
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/ 
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i 
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SIGN 
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CMD200, 
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8020 
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5021 

4225 


JM8 

CMD205 


5022 
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5023 

3047 


OCA 

MAJOR 


6024 
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/ 

JMP I 
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/ 

CMD205, 
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502S 

1454 


TAO I 

LSTCHR 

/SET PREVIOUS CHAR 

5027 

1106 


TAD 

M8PACE 

/WAS IT SPACE? 

5030 

7430 


SNA 



5031 

5242 


JMP 

CMO210 

/YES 

5032 

1323 


TAD 

SPMCOM 

/WAS IT COMMA? 

5033 

7450 


SNA 



5034 

5242 


JMP 

CMO210 

/YES 

5035 

1324 


TAD 

COMMEQ 

/WAS IT EQUALS? 

5036 

7650 


SNA CLA 



3037 

5242 


JMP 

CMD210 

/YES 

5040 

4474 


JMS I 

M JSC 

/NO - PROCESS AS FILE CHANGE 

5041 

5247 


JMP 

CM0212 

/POINTERS ARE UPDATED 

5042 

1053 

CMD210# 

TAD 

NEWCHR 


5043 

3055 


DCA 

LSTDEL 

/SET LAST DELIM 

5044 

3050 


OCA 

MINOR 


5045 

2053 


ISZ 

NEWCHR 


5046 

2054 

/ 

I5Z 

LSTCHR 



EJECT 


1241 



/ 




1242 



/ 

GUARANTEE REQUESTED NUMBER 

1243 



/ 

OP OUTPUT PICES, 

AS INDICATED 

1244 



/ 

BY COAD 

FILE All* 

WORD 

1245 



/ 




1246 

6047 

1122 

CHD212, 

TAO 

CMPARM 

/SAVE CURRENT OEFAUCT 

1247 

5050 

0100 


AND 

P77 


1250 

5051 

3045 


OCA 

MOLDU 

/FOR CATER RESTORATION 

1251 

5052 

1044 


TAD 

PREFLU 

/START WA SEARCH 

1252 

5053 

3052 


OCA 

UNIT 

/AT SYSTEM UNIT 

1253 

5054 

7201 


ONE 



1254 

5055 

3047 


DC A 

MAJOR 

/FORCE OUTPUT STATE 

1255 

6056 

1511 


TAD I 

PLFAUX 

/SETUP RETRY COUNT 

1256 

5057 

0077 


AND 

P7 


1257 

5060 

7001 


I AC 


/ACCOM TWO RETRIES 

1260 

8061 

7040 


CM A 


/ON WA AClOCATION PAICURES 

1261 

5062 

3046 


DCA 

WATRY 

/SET TRY COUNTER 

1262 

5063 

1511 

CHD214, 

TAO I 

PLFAUX 

/GIT COAD PICE WA REQUIREMENT 

1263 

5064 

0077 


AND 

P7 

/BITS 9-11 ONCY 

1264 

5065 

7040 


CMA 



1265 

5066 

1051 


TAO 

FILCNT 

/ENOUGH OUTPUT FILES? 

1266 

5067 

7700 


SMA CCA 



1267 

5070 

5316 


JMP 

CMD240 

/YES ■ DONT ALCOCATE WORK AREAS 

1270 



/ 




1271 



/ 

ACCOCATE A WORK 

AREA 

1272 



/ 




1273 

6071 

4467 


JM3 I 

UOK 

/IS THIS UNIT OK? 

1274 

5072 

7410 


SKP 


/YES 

1275 

5073 

4470 


JMS I 

NXTOU 


1276 

5074 

4462 


JM8 I 

CMG 


1277 

5075 

0052 


UNIT 



1300 

5076 

4471 


JMS I 

MVC 

/MOVE IN UNIT, NUCC NAME 

1301 

5077 

3304 


DCA 

CMO220 

/STORE FILE DESCRIPTOR AODR 

1302 

5100 

4472 


JMS I 

WTX 


1303 

5101 

7325 


THREE 


/ALLOCATE WA 

1304 

5102 

6212 


CIP 

10 


1305 

5103 

4476 


JMS I 

PXSERV 

/TO X8 THINGS 

1306 

5104 

0000 

CMO220, 

0 


/ON THIS P,D, 

1307 

5105 

6107 


CMD230 


/ERROR RETURNS 

1310 

5106 

2051 


I3Z 

PICCNT 

/BUMP COUNT 

1311 

6107 

7200 

00230, 

CCA 



1312 

5110 

4470 


JM3 I 

NXTOU 


1313 

5111 

2046 


I9Z 

WATRY 

/CHECK TRY COUNTER 

1314 

6112 

5263 


JMP 

CMD214 

/NOW CHECK FOR ENOUGH 

1315 

5113 

4422 


JMS I 

WRITE 


1316 

5114 

6546 


NOWAP 



1317 

5115 

5313 


JMP 

*■2 


1320 



/ 




1321 

6116 

1045 

CMD240, 

TAO 

HOCOU 

/RESTORE CAST UNIT 

1322 

5117 

3052 


DCA 

UNIT 


1323 

5120 

4462 


JMS I 

CMG 


1324 

5121 

0052 


UNIT 



1325 

5122 

5625 


JMP I 

CMO205 


1326 



/ 




1327 

8123 

7764 

SPHCOH, 

240.254 



1330 

5124 

7757 

COMMEQ, 

254-275 



1331 



/ 




1332 




EJECT 




333 



/ 




334 



/ 

SEMICOLON 


335 



/ 




356 

5125 

4225 

GMD300, 

JMS 

CMD205 

/DO EQUALS STUFF 

337 

5126 

7325 


THREE 



340 

5127 

3047 


OCA 

MAJOR 


341 

5130 

5460 


JMP I 

NEWH 

/CHANGE HELP AND CONTINUE 

342 



/ 




343 



/ 

COMMA 



344 



/ 




345 

5131 

4343 

CMD4001 

JMS 

CMD410 

/CHECK STATE VALIDITY 

346 

5132 

4474 


JMS I 

M JSC 

/PROCESS NEXT FILE 

347 

5133 

7240 


MONE 



350 

5134 

1047 


TAD 

MAJOR 


331 

5135 

7640 


SZA CLA 


/OUTPUT STATE? 

352 

5136 

5460 


JMP I 

NEWH 

/NO 

353 

6137 

4470 


JMS I 

NXTOU 

/GET NEXT OUTPUT UNIT 

354 

5140 

4462 


JMS I 

CMG 

/GET ITS INDEX 

355 

5141 

0052 


UNIT 



356 

5142 

5460 


JMP I 

NEWH 

/REFRE8H 

357 



/ 




360 



/ 




361 

5143 

0000 

CMD410, 

0 



362 

5144 

1047 


TAD 

MAJOR 

/CHAR LEGAL IN THIS STATE? 

363 

5145 

7650 


SNA CLA 



364 

5146 

5465 


JMP I 

INV 

/NO 

365 

5147 

1103 


TAD 

Ml 0 


366 

5150 

1051 


TAD 

FILCNT 

/TOO MANY FILES? 

367 

5151 

7710 


SPA CLA 



370 

5152 

5743 


JMP I 

CMD410 

/NO, OK 

371 

5153 

4464 


JMS I 

HLP 


372 

9154 

6500 


NOFH 


/TELL HIM 

373 

5155 

5466 


JMP I 

Q3PEH 


374 



/ 




375 




EJECT 




I4«e 



/ 




1401 



/ 

COLON 



1402 



/ 




1403 

5200 

1050 

CMD500, 

TAD 

MINOR 


1404 

6201 

7640 


8 ZA CIA 


/IS MINOR STATE 07 

1406 

9202 

5465 


JMP I 

INV 

/NO • ERROR 

1406 

9203 

7346 


MTHREE 



1407 

9204 

1054 


TAD 

LSTCHR 


1410 

9209 

7041 


CIA 



1411 

5206 

1085 


TAD 

L8TDEL 

/IS DEV 3 CHARS7 

1412 

9207 

7640 


SZA CLA 



1413 

5210 

6465 


JMP I 

INV 

/NO - ERROR 

1414 

5211 

4221 


JMS 

CMO505 

/CONVERT UNIT 

1418 

9212 

5215 


JNP 

* +3 

/NON-INOEX DEVICE 

1416 

5213 

4462 


JM8 I 

CMS 

/START INDEX READ 

1417 

5214 

0052 


UNIT 



1420 

5215 

1093 

CMD502 

TAD 

NEWCHR 


1421 

5216 

3065 


OCA 

LSTDEL 


1422 

5217 

8 S 20 


JMP I 

.♦1 


1423 

5220 

4457 


CNI220 



1424 



t 




1423 



/ 




1426 

5221 

0000 

CMD505, 

0 



1407 

5222 

1085 


TAD 

LSTDEL 


1430 

5223 

3011 


DCA 

AX 1 


1431 

5224 

1411 


TAD I 

AX 1 

/FIRST CHAR OF OEV 

1432 

5225 

0100 


AND 

P77 

/STRIPPED 

1433 

5226 

7106 


CLL RTL 



1434 

6227 

7006 


RTl 



1436 

5230 

7006 


RTL 



1436 

6231 

1411 


TAD I 

AX 1 

/2ND CHAR 

1437 

5232 

3003 


DCA 

TMP2 


1440 

5233 

UU 


TAD I 

AX 1 

/3RD CHAR 

1441 

5234 

3085 


DCA 

TMP4 

/SAVE FOR LATER 

1442 

5235 

1317 


TAD 

PDEVL 

/DEVICE CODE LIST 

1443 

5236 

3012 


DCA 

AX2 


1444 

5237 

1412 

CMD510, 

TAD I 

AX2 

/COMPARE ENTRIES 

1446 

5240 

7450 


SNA 


/END OF LIST? 

1446 

6241 

5455 


JMP I 

INV 

/YES-TOO BAD 

1447 

5242 

1003 


TAD 

TMP2 

/NO-MATCH 

1490 

5243 

7650 


SNA CLA 


/SAME? 

1491 

5244 

5260 


JMP 

CMD530 

/EQUAL 

1492 

5245 

2012 


ISZ 

AX2 

/UNEQUAL • BUMP POINTER 

1453 

5246 

2012 

CMO520, 

I8Z 

AX2 


1494 

5247 

5237 


JMP 

CMD510 

/TRY NEXT 

1495 



/ 




1496 



/ 

HIGH OROER DEVICE CODE MATCHES 

1497 



/ 




1460 

5250 

1412 

CMD530 , 

TAD I 

AX2 


1461 

5231 

7500 


8 MA 


/MUST 3RD BE NUMERIC? 

1462 

5252 

5257 


JMP 

CMO540 

/YES 

1493 

5253 

1005 


TAD 

TMP4 

/NO • TEST FOR MATCH 

1464 

5254 

7640 


SZA CLA 


/3RD EQUAL? 

1466 

5255 

5246 


JMP 

CMD320 

/NO - CONTINUE SEARCH 

1466 

5256 

5266 


JMP 

CMO550 

/SET CODE 

1467 



/ 




1470 




EJECT 






471 / 

472 t THIRD CHAR MUST BE NUMERIC 


473 



/ 





474 

5257 

1005 

CMD540, 

TAD 


TMP4 

/GET LAST CHAR OP CODE 

475 

6260 

1316 


TAD 


M270 


476 

5261 

7500 


SMA 




477 

5262 

6465 


JMP 

I 

INV 

/NO GOOD 

500 

6263 

1102 


TAD 


P 10 


501 

5264 

7510 


SPA 




502 

6265 

5465 


JMP 

I 

INV 

/BAD 

503 

5266 

1412 

CMD550, 

TAD 

I 

AX2 

/OK • COMBINE WITH UNIT CLASS 

504 

5267 

3052 


DC A 


UNIT 

/HOLD UNIT 

505 

5270 

7240 


HONE 



506 

5271 

1047 


TAD 


MAJOR 


507 

5272 

7650 


SNA 

CLA 


/OUTPUT STATE? 

510 

5273 

4320 


JMS 


UOK000 

/YES, CHECK UNIT 

511 

5274 

7410 


SKP 




512 

5275 

5313 


JMP 


CMO580 

/UHOH» CONFLICT 

513 

6276 

1052 


TAD 


UNIT 


51 4 

5277 

1104 


TAD 


M20 

/TEST FOR TAPE OR OISK 

515 

5300 

7510 


SPA 



/GE 20? 

516 

6301 

5311 


JMP 


CMD570 

/NO 

517 

6302 

1104 


TAD 


M20 


520 

5303 

7700 


SMA 

CUA 


/LT 40? 

621 

5304 

5311 


JMP 


CMO570 

/NO 

522 

6305 

2221 


ISZ 


CMD505 

/YES, SKIP RETURN 

623 

5306 

7201 


ONE 



/INDEX - TYPE DEVICE 

524 

5307 

3050 

CMO560, 

OCA 


MINOR 

/SET MINOR STATE 

625 

5310 

0621 


JMP 

I 

CMQ505 


526 



/ 






527 / NOT AN INDEX DEVICE 

530 / 

531 5311 7325 CMD570, THREE 

632 5312 5307 JMP CMD360 

533 / 

534 / TRYING TO PUT TWO OUTPUT FILES 

535 / ON THE SAME UNIT 

536 / 


537 

540 

8313 

5314 

4464 

6515 

GMD580 § 

JMS I 
OFDH 

HLP 

541 

542 

5315 

5466 

/ 

JMP I 

DSPEH 

543 

5316 

7510 

M270, 

-270 


544 

545 

546 

5317 

6025 

PDEVl, 

/ 

DEVIL-1 

EJECT 



EJECT 


1547 



/ 




1550 



/ 

SKIP IP 

UNIT HAS 

ALREADY BEEN 

1551 



/ 

USED AS 

AN OUTPUT DEVICE 

1550 



/ 




1553 

5320 

0000 

UOK000, 

0 



1554 

5321 

7940 


MONE 



1555 

5322 

1061 


TAD 

PILCNT 


1556 

5323 

7460 


SNA 


/ANY YET? 

1557 

5324 

5720 


JMP I 

UOK000 

/NOPE 

1550 

5325 

7041 


CIA 



1561 

5326 

3003 


DCA 

TMP2 


1552 

5327 

1360 


TAD 

P7624 

/POINT TO OUTPUT LIST 

15«3 

5335 

3002 


DCA 

TMPt 


1564 

5331 

1402 

UOK010 f 

TAD I 

TMPI 


1566 

5332 

0100 


AND 

P77 

/STRIP TO UNIT ONLY 

1556 

5333 

7041 


CIA 



1567 

5334 

1052 


TAD 

UNIT 

/COMPARE UNIT 

1570 

5336 

7650 


SNA CIA 



1571 

5336 

5345 


JMP 

UOK020 

/EQUAL* TOO BAO 

1572 

5337 

1347 


TAO 

P12 


1573 

5340 

1002 


TAD 

TMPI 

/POINT TO NEXT 

1574 

5341 

3002 


DCA 

TMPI 


1575 

5342 

2003 


I8Z 

TMP2 

/THAT ALL? 

1576 

5343 

5331 


JMP 

UOK010 


1577 

5344 

7410 


SKP 


/YUP 

1600 



/ 




1601 

5345 

2320 

UOK020i 

I6Z 

UOK000 


1600 

5346 

5720 


JMP I 

UOK000 


1603 



/ 




1604 

6347 

0012 

P12, 

12 



1605 

5360 

7624 

R7624, 

7624 



1606 



/ 




1607 



/ 

PERIOD 



1610 



/ 




1611 

5351 

7344 

CMD600, 

MTWO 



1610 

5352 

1050 


TAD 

MINOR 


1613 

5353 

7700 


SMA CLA 


/IS PERIOD LEGAL HERE? 

1614 

9354 

6465 


JMP I 

INV 

/NO 

1615 

5355 

1047 


TAD 

MAJOR 


1616 

5356 

7660 


SNA CLA 



1617 

5357 

5465 


JMP I 

INV 

/NO (FUNCTION HAS EXT » ,BI 

1620 

5350 

1064 


TAD 

LSTCHR 


1621 

5361 

7041 


CIA 



1600 

5362 

1056 


TAD 

LSTOEL 

/WAS LAST CHAR A DELIMITER? 

1623 

5353 

7650 


SNA CLA 



1604 

5364 

9465 


JMP I 

INV 

/YES - ERROR 

1626 

6365 

7327 


SIX 



1526 

5356 

1055 


TAO 

LSTDEL 


1607 

5357 

7040 


CM A 



1636 

5370 

1054 


TAD 

LSTCMR 


1631 

5371 

7630 


SZL CLA 


/TOO MANY CHARS? 

1632 

5372 

6465 


JMP I 

INV 

/YES 

1633 

5373 

4471 


JMS I 

MVC 

/SEEMS GK 

1634 

5374 

7305 


TWO 



1635 

5375 

3060 


OCA 

MINOR 


1636 

5376 

5215 


JMP 

CMD502 

/RESET POINTERS ANO RETURN 

1637 



/ 




1640 




EJECT 





/ 

PAGE 

/ 

/ MVC - SET UP FILE DESCRIPTOR 


/ 

MVC000, 

0 





CLA 

CLL 




TAO 


FILCNT 

/PILE NUMBER 


RAL 



/TIMES TWO 


OCA 


TMP2 

/HOLD 


TAD 


TMP2 



CLL 

PAL 


/TIMES 10 OCTAL 


CLL 

RAL 


/CAREFULLY 


TAD 


TMP2 

/NOW TIMES 12 OCTAL 


TAD 


P7611 

/PLUS PAGE 37 POINTER 


DCA 


AX0 

/IS POINTER TO FILE DESCRIPTOR 


TAO 


MAJOR 

/GET CONTROL BITS 


CLL 

RTR 




RAR 





TAD 


UNIT 



DCA 

I 

AX0 

/STORE UNIT IN FDB 


MTHREE 




TAD 


MINOR 



SNA 





JMP 


MVC200 

/THERE IS NO FILE NAME 


I AC 





SNA 

CLA 




JMP 


MVC100 

/THIS IS EXTENSION 


TAD 


P400 



DCA 

I 

AX0 

/BLOCK LENGTH 


TAD 


ISTCMR 



CIA 





TAD 


LSTDEL 

/GET MOVE LENGTH 


SNA 



/ZERO? 


JMP 


MVC030 

/YES • FILL WITH BLANKS 


OCA 


TMP3 



TAD 


LSTDEL 



OCA 


AX 1 


MVC010, 

TAD 

I 

AX 1 

/SET CHAR 


AND 


P77 



CIL 

RTL 


/SHIFT 


RTL 



/TO 


RTL 



/HIGH - ORDER 


I8Z 


TMP3 

/END OF NAME? 


JMP 


MVC020 

/NO - CONTINUE LOOP 


TAD 


P40 

/FORCE BLANK 


DCA 

I 

AX0 



JMP 


MVC030 

/FILL BLANKS 

MVC020, 

DCA 


TMP4 



TAD 

I 

AX 1 

/GET NEXT CHAR 


AND 


P77 



TAD 


TMP4 

/COMBINE 


DCA 

I 

AX0 



I8Z 


TMP3 


/ 

JMP 


MVC010 



EJECT 



NOW FILL REST OF NAME AND EXTENSION WITH BLANKS 


1732 



1733 



1734 



1736 

5462 

1055 

17S« 

5463 

7041 

1737 

5464 

1053 

1740 

5465 

7110 

IHi 

5466 

5467 

1315 

3004 

1743 

5470 

1317 

1744 

5471 

3410 

1746 

5472 

2004 

1746 

5473 

5270 

1747 

5474 

3410 

1780 

5475 

3410 

1751 

5476 

7240 

1762 

5477 

3410 

1753 

6500 

3410 

1784 

6501 

1047 

1765 

5502 

7640 

1756 

5503 

8364 

1787 

5504 

1313 

1760 

5505 

3010 

1761 

5506 

1320 

1762 

5507 

3410 

1763 

5510 

1381 

1764 

5511 

3410 

1765 

6512 

5364 

1766 



1767 

5513 

7616 

1770 

5514 

7611 

1771 

5515 

7773 

1772 

5516 

0400 

1773 

6517 

4040 

1774 

5520 

6602 

1774 



1775 

5521 

111* 

1775 


1776 



1777 




/ 

/ 

/ 


MVC030 r 

TAD 

CIA 

L8TDCL 


TAD 

CLL RAR 

NEtrfCHR 

MVC035, 

TAD 

M3 


DCA 

TMP3 

MVC040 , 

TAD 

HBLNKS 


DCA I 

AX0 


ISZ 

TMP3 


JMP 

MVC040 


OCA I 

AX0 


OCA I 
HONE 

AX0 


DCA I 

AX0 


DCA I 

AX0 


TAD 

MAJOR 


8ZA CLA 



JMP 

MVC300 


TAD 

P7616 


DCA 

AX0 


TAD 

TPTB 


DCA I 

AX0 


TAD 

TIN 


DCA I 

AX0 

/ 

JMP 

MVC300 

P7616. 

7616 


P7611, 

7611 


M5» 

■ 5 


P400, 

400 


HBLNKS, 

4040 


TPTB, 

TEXT 


TIN, 

/ 

TEXT 

EJECT 

«IN« 


/CALCULATE NAME LENGTH tl 
/OVER TWO 
/FROM FULL LENGTH 
/GIVES PILL LENGTH 

/FILL WITH BLANKS 


/CLEAR AUX 
/CLEAR START 

/INFINITE LENGTH 

/clear NEXT unit 

/FUNCTION STATE? 

/NO » RETURN 
/YES - POINT TO EXT 

/«.B« 

/ « IN m 

/RETURN 



2 000 



/ 




214131 



/ 

MOVE EXTENSION 


2002 



/ 




20133 

5522 

1098 

MVC100, 

TAD 

LSTDEL 


2003 

5523 

3pi 1 


DCA 

AX 1 


20 08 

5524 

7307 


FOUR 



2008 

5525 

1010 


TAD 

AX0 

/BUMP PAST NAME 

2007 

5526 

3010 


OCA 

AX0 


2010 

5527 

1084 


TAD 

ISTCHR 


2»11 

5530 

7041 


CIA 



2012 

5531 

1088 


TAD 

L8TDEL 

/EXT LENGTH 

2013 

5532 

3004 


DCA 

TMP3 


2013 

5533 

1411 


TAD I 

AX 1 

/FIRST CHAR 

2015 

5534 

0100 


AND 

P77 


2018 

5535 

1371 


TAD 

P9600 

/WITH PERIOD 

2017 

55^6 

2004 


ISZ 

TMP3 

/END OF EXT? 

2020 

5537 

7410 


SKR 


/NO 

2021 

5540 

8387 


JMP 

MVC120 

/YES 

2022 

5541 

3410 


OCA I 

AX0 

/STORE THIS 

2023 

5542 

1411 


TAD I 

AX 1 

/NEXT CHAR 

2024 

5543 

0100 


AND 

P 77 


2028 

5944 

7106 


CLL RTL 



2026 

5545 

7006 


RTL 


/MOVE LEFT 

2027 

9546 

7006 


RTL 



2030 

5347 

2004 


ISZ 

TMP3 

/ENO? 

2031 

5550 

6363 


JMR 

MVCliB 

/NO 

2032 

5551 

1101 


TAD 

P40 


2033 

5552 

8387 


JMP 

MVC 120 


2034 

5553 

3008 

MVC110, 

DCA 

TMP4 


2038 

5554 

1411 


TAD I 

AX 1 

/LAST CHAR 

2036 

5555 

0100 


AND 

P77 


2037 

9556 

1005 


TAD 

TMP4 


2040 

5557 

3410 

MVC120# 

DCA I 

AX0 


ao4i 

9560 

6364 


JMP 

MVC300 

/RETURN 

2042 



/ 




2043 



/ 

THERE IS NO FILE 

: NAME 

2044 



/ 




2045 

5561 

7201 

MVC200, 

ONE 



2046 

5562 

3410 


DCA I 

AX0 

/AND BLOCK LEN 

2047 

5563 

6266 


JMP 

MVC 035 

/CLEAR REST 

2050 



/ 




2081 



/ 

RETURN 

WITH PILE 

: DESCRIPTOR ADDR IN AC 

2052 



/ 




2083 

5364 

1003 

MVC300 # 

TAD 

TMP2 

/FILECOUNT *2 

2054 

5565 

7106 


CLL RTL 



2055 

5566 

1003 


TAO 

TMP2 

/* 12 OCTAL 

2056 

556 7 

1372 


TAD 

P7614 


2057 

5570 

8600 


JMP I 

MVC000 


2060 



/ 




2061 

5571 

6600 

P5600, 

6600 



2062 

5572 

7614 

P7614, 

7614 



2063 



/ 




2064 




EJECT 





2069 




PAGE 



2066 



/ 




2067 



/ 

GET AN 

INDEX 


2070 



/ 




2071 

6600 

0000 

CMG000* 

0 



2070 

5601 

1600 


TAD I 

CMS000 

/ADDR OF UNIT 

2073 

5602 

3232 


DCA 

CMGTMP 


2074 

9603 

2200 


192 

CMG000 


2079 

6604 

1632 


TAD I 

CMGTMP 


2076 

9609 

3232 


DCA 

CMGTMP 

/UNIT TO SET 

2077 

5606 

1122 


TAD 

CMPARM 


2100 

5607 

0100 


AND 

977 

/LAST UNIT 

2101 

9610 

7041 


CIA 



2102 

5611 

1232 


TAD 

CMGTMP 

/COMPARE TO THIS 

2103 

5612 

7650 


9NA CLA 



2104 

5613 

5600 


JMP I 

CMG000 

/EQUAL • NEVE ALREADY GOT IT 

2109 

5614 

7240 


MONK 



2106 

5619 

1132 


TAD 

D8PRMI+2/SAVE 01.0 HELP 

2107 

5616 

3230 


DCA 

CMG010 


2110 

5617 

4472 


JM» I 

HTX . 

/WAIT FOR LAST REAO 

2111 

6620 

1232 


TAO 

CMGTMP 


2112 

5621 

3122 


OCA 

CMPARM 

/SET NEW UNIT 

2113 

5622 

1122 


TAD 

CMPARM 


2114 

5623 

4275 


JMS 

CHRDEV 

„/DI8PLAY NEW DEFAULT 

2119 

6624 

6730 


OEFOEV- 

1 


2116 

5629 

4421 


JMS I 

READ 

- 

2117 

5626 

0122 


CMPARM 


/READ NEW INDEX 

2120 

5627 

4454 


JMS I 

HLP 

/RESTORE OLD HELP 

2121 

5630 

0000 

CMG010, 

0 



2122 

5631 

9600 


JMP I 

CMG000 


2123 



/ 




2124 

5632 

0000 

CMGTMP, 

0 



2126 



/ 




2126 



/ 

WRITE THE INDEX 


2127 



/ 




2130 

5633 

0000 

CMH000, 

0 



2131 

5634 

7200 


CIA 



2132 

5635 

4472 


JM8 I 

WTX 

. 

2133 

9636 

6211 


CDF 

10 


2134 

5637 

2653 


182 I 

PM0D3W 

/WAS INDEX MODIFIEQ? 

2139 

5640 

5250 


JMP 

CMW010 

/NO-RESET DF AND RETURN 

2136 

6641 

1652 


TAO I 

pxlen 

/YES-GET X LEN IN BLOCKS 

2137 

5642 

7112 


CLL RTR 



2140 

5643 

7012 


RTR 



2141 

5644 

7010 


RAR 



2142 

5645 

3125 


DCA 

CMPARM+3/8T0RE LENGTH 

2143 

5646 

4422 


JM8 I 

WRITE 


2144 

5647 

0122 


CMPARM 



2149 

5650 

6201 

CMW010, 

CDF 

0 


2146 

9651 

5633 


JMP I 

CMW000 


2147 



/ 




2190 

5692 

4006 

PXLEN, 

4006 



2191 

5653 

0040 

PMODSM, 

M0D9W 


/FIELD 1 AODR OF "MOOIFIED" 8W 

2192 



/ 




2163 




EJECT 





2154 


2155 


2156 


2187 

5654 

2160 

8655 

2161 

5666 

2162 

8667 

2163 

8660 

2164 

5661 

2168 

5662 

2166 

5663 

2167 

8664 

2170 

8668 

2171 

6666 

2172 

5667 

2173 

5670 

2174 

5671 

2175 

5672 

2176 

8673 

2177 

5674 

2200 


2201 


2202 


2203 


2204 

8675 

2205 

5876 

2206 

5677 

2207 

6700 

2210 

6701 

2211 

5702 

2212 

8703 

2213 

5704 

2214 

5705 

2215 

6706 

2216 

5707 

2217 

8710 

2220 

5711 

2221 

5712 

2222 

5713 

2223 

5714 

2224 

5718 

2225 

5716 

2226 

5717 

2227 


2230 

6720 

2231 

5721 

2232 

5722 

2233 


2234 



/ 

0600 WTX000 

lias 

7700 

8694 

uas 

4278 

6886 

4464 

6347 

4478 WTX010 

1484 

7690 

8460 

lias 

7710 

8268 

8694 

/ 

/ 


/ 

0000 CHRDEV 
3002 
1676 
3013 
8275 
1002 
0102 
7650 

1320 

1321 
3413 
1002 
0077 
7106 
7008 
7006 

1322 
3413 
8678 

/ 

1011 TLTMDK 
0413 TDK# 
6043 P6043, 

/ 


WAIT FOR INDEX 

0 


TAD 

CMPARM 

8"' ') 


Jhi 


TAD 

CMP Ai 

JMS 

CHRDEV 

WTHUNI- 

1 

JMS I 

HLP 

WTH 


JMS I 

DSP 

TAO I 

LSTCHR 

SNA CLA 


JMP I 

NEWH 

TAD 

CMPARM 

SPA CLA 


JMP 

WTX010 

JMP I 

WTX000 

CONVERT 

CMPARM 

DEVICE i 

CODE 

0 


DCA 

TMP1 

TAD I 

CHRDEV 

DCA 

AX3 

ISZ 

CHRDEV 

TAD 

TMP1 

AND 

P10 

SNA CLA 


TAD 

TLTMDK 

TAD 

TDK 

DCA I 

AX3 

TAD 

TMPi 

AND 

P7 

CLL RTL 


RTL 


rtl 


TAD 

P6043 

DCA I 

AX3 

JMP I 

CHRDEV 

1424-413 

413 


6043 



/TO NA.I' 

/INSERT NEW HELM 

/REFRESH DISPLAY 
/CHECK FOR RUBOUT 


/IS I/O DONE? 

/NO • REFRESH AGAIN 


TO CHARACTER FORH 


/HOLD DEV CODE 
/WHERE TO 


/TAPE 

/DISK 

/STORE IN BUFFER 


/ALL DQN2 


EJECT 



aass 



/ 

2836 



/ 

2237 



/ 

2240 

5723 

0000 

HIP000, 

2241 

5724 

7300 


2242 

5725 

1723 


2243 

5726 

3132 


2244 

5727 

2323 


2240 

5730 

1632 


2246 

5731 

3133 


2247 

5732 

2132 


2200 

5733 

1132 


2251 

5734 

1341 


2292 

5735 

7620 


2233 

5736 

7040 


2284 

5737 

3066 


2289 

5740 

8723 


2286 



/ 

2297 

5741 

1461 

MPRMH 9 

2260 




2261 



/ 

2262 



i 

2263 



i 

2264 

5742 

0000 

OSP000I 

2265 

5743 

4422 


2266 

5744 

0130 


2267 

5745 

1063 


2270 

6746 

3011 


2271 

5747 

1411 


2272 

5750 

7640 


2273 

5751 

9347 


2274 

5752 

1136 


2275 

5753 

7041 


2276 

5754 

1011 


2277 

5755 

3137 


2300 

6756 

4422 


2301 

5757 

0134 


2302 

5750 

1066 


2303 

5761 

7S50 


2304 

5752 

8748 


2305 

5753 

4482 


2306 

5764 

8766 


2307 

5765 

5742 


2310 



/ 

2311 



t 

2318 

6766 

0061 

08PRM3# 

2313 

6767 

6201 


2314 

5770 

6717 


2315 

5771 

0014 


2316 



/ 

2317 





I 


INSERT SPECIFIED HELP TEXT 

e 

CLA CLL 

TAD I HLP000 

OCA DSPRM1*2/HELP ADDRESS 

182 HLP000 

TAD I DSPRM1+2/GET HELP LENGTH 

OCA DSPRM1+3/SET LENGTH 

ISZ OSPRMl*2 

TAD 0SPRM1+8 

TAO MPRMH /COMPARE AD0RESSE8 

SNL CLA /DISPLAY DEFAULT UNIT! 

CMA /YES 

OCA DFU8W /SET SWITCH 

JMP I HLP000 /RETURN 

■PRMH /ALL HELPS BEFORE THIS POINT 

/GET DEFAULT UNIT DISPLAY 

REFRESH THE 0I3PLAY 

0 

JM8 I WRITE /REFRESH HELP TEXT 

D8PRM1 

TAD NEMCHR 

DCA AX 1 

TAD I AX 1 /SCAN TO END OF INPUT 

SZA CLA 
jmp ,-a 

TAD DSPRM2+8/8TART OF BUFFER 

CIA /SUBTRACTED FROM 

TAO AX1 /LAST CHAR ADOR 

DCA OSPRM2+3/I8 BUFFER LEN 

JM8 I WRITE /REFRESH COMMAND 

0SPRM8 

TAD DFUSW 

SNA CLA /DISPLAY DEFAULT UNITT 

JMP I DSP000 /NO 

JM8 I WRITE 

0SPRM3 

JMP I OSP000 


ei 

CDF 0 

DSHLP 

IF 

EJECT 



2320 



/ 




2321 




PACE 



2322 



/ 




2323 



/ 

CHECK FOR SPECIAL FUNCTION 

2324 



/ 

COME HERE ONLY 

WHEN MAJOR p 0 

2326 



/ 




2326 

6000 

7200 

SPF000 > 

CUA 



2327 

6001 

1624 


TAD I 

PFNAME 


2330 

0002 

1223 


TAD 

MOX 


2331 

6003 

7640 


SZA CUA 



2332 

6004 

5621 


JMP 1 

SPFRET 

/NOT OURS 

2333 

6006 

1625 


TAD I 

PFNAMl 


2334 

6006 

1105 


TAD 

MBLNKS 


2336 

6007 

7640 


SZA CLA 



2336 

6010 

5621 


JMP I 

SPFRET 

/NOT DX 

2337 

6011 

1453 


TAD I 

newchr 

/+«*****«***#** 

2340 

6012 

1107 


TAO 

M215 

/************** 

2341 

6013 

7640 


SZA CUA 


/«*****#+*#**** 

2342 

6014 

6465 


JMP I 

INV 


2343 

6019 

6212 


CIF 

10 


2344 

6016 

4622 


JM3 I 

PDX 


2349 

6017 

4463 


JM3 J 

CMW 

/WRITE INDEX IF MODIFIED 

2346 

6020 

5457 


JMP I 

CM! 


2347 



/ 




2390 

6021 

4764 

SPFRET# 

CMD020 



2351 

6022 

0200 

PDX , 

OX 



2392 

6023 

7350 

MDX t 

• 430 



2393 

6024 

7614 

PFNAME, 

7614 



2394 

6029 

7615 

PFNAMl f 

7615 



2396 



/ 




2356 




EJECT 






2337 



/ 



2330 



/ 

TRANSLATION 

TABLE FROM MNEMONIC 

2301 



/ 

DEVICE COOES 

i TO INTERNAL REPRESENTATION 

2332 



/ 



2363 

6026 

6064 

devil, 

•1400*324 

/PIR8T TNO CHARS 

2364 

6027 

0000 


0 

/3RD IS NUMERIC 

2363 

6030 

0020 


20 

/LT CLASS 

2366 



/ 



2367 

6031 

7066 


•400*313 


2370 

6032 

0000 


0 


2371 

6033 

0030 


30 

/OK CLASS 

2372 



/ 



2373 

6034 

5054 


•2400.324 


2374 

6035 

7447 


• 331 


2373 

6036 

0040 


40 

/TTY CODE 

2376 



/ 



2377 

6037 

7055 


•400*323 


2400 

6040 

7460 


•320 


2401 

6041 

0060 


60 

/DISPLAY 

2402 



/ 



2403 

6042 

7066 


-400-323 


2404 

6043 

7477 


• 301 


2406 

6044 

0060 


60 

/ASCII DISPLAY CODE 

2406 



/ 



2407 

6045 

7065 


•400*323 


2410 

6046 

7474 


• 304 


2411 

6047 

0061 


61 

/DIAL DISPLAY CODE 

2412 



✓ 



2413 

6060 

0000 


0 

/ENO OF LIST 

2414 



/ 



2416 



/ 

BACKSCAN DELIMITER CONTROL LIST 

2416 



/ 



2417 

6051 

7640 

DLI3T, 

>240 

/SPACE 

2420 

6052 

4230 


CMI134 


2421 

6053 

7803 


•275 

/EQUALS 

2422 

6064 

4202 


CMI152 


2423 

6063 

7606 


>273 

/SEMICOLON 

2424 

6056 

4200 


CM!150 


2426 

6057 

7524 


•254 

/COMMA 

2426 

6060 

4232 


CMI136 


2427 

6061 

7506 


>272 

/COLON 

2430 

6062 

4240 


CMI160 


2431 

6063 

7622 


•286 

/PERIOD 

2432 

6064 

4239 


CMJ158 


24« 

6066 

0000 


0 

/END OF LI8T 

2430 



/ 



2438 



/ 

MAJOR STATE 

HELP POINTERS 

8436 



/ 



2437 

6066 

6077 

8TATEH, 

FUNH 

/0IFUNCTION 

2440 

6067 

6155 


OUTH 

/l1 OUTPUT 

2441 

6070 

6240 


INH 

/21INPUT 

2442 

6071 

6317 


PRMH 

/3IPARMS 

2443 



/ 



2444 



/ 

INDEX ERROR 

HELP POINTERS 

2446 



/ 



2446 

6072 

6607 

ERRORH, 

CH0 

/0IXNVALIO INDEX 

2447 

6073 

6622 


«H| 

/UNO FILE 

2480 

6074 

6643 


EH2 

/2I0UPLICATE 

2461 

6075 

6663 


EM3 

/31 TOO BIG 

2432 

6076 

6706 


EH4 

/4lINDEX FULL 

2433 



/ 



2464 




EJECT 




3455 



3456 



3457 



3460 

6077 

0055 

3461 



3463 

6100 

4305 

3463 

6101 

1624 

3463 

6102 

0522 

2463 

6103 

4006 

3462 

6104 

3516 

2463 

6105 

0324 

3463 

6106 

1117 

2462 



3463 

6107 

1672 

3463 



3464 

6110 

4347 

2464 

6111 

4347 

2464 

6112 

0405 

2464 

6113 

2672 

2464 

6114 

0625 

3464 

6115 

1603 

2464 

6116 

2411 

2464 

6117 

1716 

3464 



2465 

6120 

4345 

2466 

6121 

4545 

3467 

6122 

4724 

3467 

6123 

1005 

3467 

6124 

1640 

3467 

6125 

2330 

2467 

6126 

0103 

2467 

6127 

0540 

2467 

6130 

2417 

2467 

6131 

4023 

2467 

6133 

2005 

3467 

6133 

0311 

3467 

6134 

0631 

2467 

6136 

4017 

2467 

6136 

2524 

2467 

6137 

2025 

2467 



3470 

6140 

2454 

3470 

6141 

4347 

2470 

6142 

1722 

2470 

6143 

4075 

2470 

6144 

4024 

2470 

6145 

1740 

2470 

6146 

2320 

2470 

6147 

0503 

3470 

6150 

1106 

2470 

6151 

3140 

2470 

6152 

1116 

2470 

6183 

2025 

3470 

6154 

2456 

3470 



2471 



2472 




/ 

/ HELP TEXT 

/ 

FUNH, OUTH-,-1 /LENGTH 

TEXT " 


ENTER FUNCTION! 


DEVIFUNCTION" 

4345 

4545 


TEXT " THEN SPACE TO SPECIFY OUTPUT, 


OR ■ TO 


/ 


SPECIFY INPUT." 


EJECT 



3473 



/ 


3474 

6155 

0062 

OUTH, 

INH-,-1 

3475 



TEXT 

H 

3476 

6186 

4306 



3476 

6187 

1634 



2476 

6160 

0922 



2476 

6161 

4017 



3476 

6162 

2624 



2476 

6163 

2025 



3476 



ENTER 

QUTPUTI 

2477 

6164 

2472 



2477 





25160 

6165 

4347 



3600 

6166 

4347 



2600 

6167 

0408 



2600 

6170 

2672 



2800 

6171 

0611 



2600 

6172 

1416 



2600 

6173 

0115 



2600 

6174 

6605 



2500 

6175 

3024 



2600 

6176 

8400 



3600 




DEVlFILNAM.EXT," 

2801 

6177 

4345 


4349 

2802 

6200 

4646 


4545 

2603 

6301 

4727 



2603 

6202 

1005 



2503 

6303 

1640 



2503 

6204 

0114 



2603 

6206 

1440 



2603 

6206 

1728 



2503 

6207 

2420 



2603 

6210 

2524 



2503 

6211 

4010 



2603 

6212 

0123 



2603 

6313 

4002 



2603 

6214 

0505 



2603 

6219 

1640 



2603 

6216 

2320 



2603 

6317 

0503 



2603 

6230 

1106 



2603 

6221 

1106 



2603 



TEXT " 

WHEN ALL OUTPUT NAS BEEN SPECIFIED* 

*«»4 

6223 

*454 



2804 

6233 

4347 



2604 

6234 

2431 



2604 

6339 

2006 



2604 

6226 

4075 



2504 

6237 

4024 



2604 

6230 

1740 



2604 

6231 

2320 



2604 

6232 

0503 



2604 

6233 

1106 



2604 

6234 

3140 



2604 

6239 

1116 



2604 

6236 

2026 



2604 

6237 

2466 



2604 




TYPE • TO SPECIFY INPUT,■ 

2605 



/ 


2606 




EJECT 



2807 



2610 

6240 

0066 

2611 



2812 

6241 

4305 

2812 

6242 

1624 

2512 

6243 

0822 

2612 

6244 

4011 

2812 

6245 

1620 

2812 

6246 

2524 

2812 



2813 

6247 

7243 

2813 



2814 

628$ 

4743 

2614 

6251 

4704 

2814 

6252 

0526 

2814 

6253 

7206 

2514 

6254 

1114 

2514 

6255 

1901 

2614 

6256 

1586 

2514 

6257 

0930 

2814 

6260 

2484 

2514 



2515 

6261 

4345 

2816 

6262 

4545 

2517 

6263 

4773 

2517 

6264 

4002 

2617 

6265 

0807 

2517 

6266 

1116 

2817 

6267 

2340 

2517 

6270 

2001 

2817 

6271 

2201 

2817 

6272 

1808 

2817 

6273 

2406 

2517 

8274 

2240 

2817 

6275 

1116 

2817 

6276 

2025 

2817 



2820 

6277 

2454 

2820 

6300 

4347 

2820 

6301 

1782 

2820 

6302 

4022 

2520 

6303 

0824 

2820 

6304 

2822 

2820 

6305 

1640 

2820 

6306 

0206 

2820 

6307 

0711 

2520 

6310 

1623 

2520 

6311 

4008 

2520 

6312 

3005 

2820 

6313 

0325 

2820 

6314 

2411 

2820 

6315 

1718 

2520 

6316 

8600 

2620 



2821 



2822 




/ 

INH, PRMH-.-l 

TEXT « 


ENTER INPUTI 


devifilnam.ext,” 

4346 

4645 


TEXT ■■ f BEGINS PARAMETER INPUT, 


OR RETURN BEGINS EXECUTION." 


/ 


EJECT 



2523 



/ 


2524 

6317 

0627 

PRMH, 

htm«,«i 

25*8 



TEXT 

It 

2526 

6320 

4306 



2526 

6321 

1624 



2826 

6322 

0822 



2826 

6323 

4020 



2826 

6324 

0122 



2526 

6328 

0118 



2526 

6326 

0824 



2826 

6327 

0922 



2826 

6330 

4023 



2826 

6331 

2422 



2526 

6332 

1116 



2826 



ENTER 

PARAMETER STRING, 

2527 

6333 

0764 



2827 

6334 

4347 



2527 

6338 

0816 



2827 

6336 

0411 



2527 

6337 

1607 



2827 

6340 

4027 



2527 

6341 

1124 



2627 

6342 

1040 



2827 

6343 

2205 



2827 

6344 

2428 



2527 

6348 

2216 



2827 

6346 

8600 



2527 




ENDING WITH RETURN 

2830 



/ 


2831 




EJECT 



2832 



/ 

2833 

634; 

0042 

WTH, 

2834 

6350 

4847 


2838 

6351 

2701 


2838 

6352 

1124 


2836 

6363 

1116 


2835 

6364 

0740 


2636 

6366 

0617 


2836 

2838 

6366 

2240 

TEXT 

2536 

2836 

6367 

1424 

WTHUNI 

2837 

2837 

6360 

6043 


2642 

6361 

4743 


2840 

6362 

4720 


2540 

6363 

1405 


2540 

6364 

0123 


2540 

6366 

0840 


2540 

6366 

2208 


2540 

6367 

0104 


2540 

6370 

3140 


2540 

2640 

6371 

1124 


2541 

6372 

8443 


2541 

6373 

4717 


2641 

6374 

2240 


2541 

6375 

2431 


2541 

6376 

2008 


2841 

6377 

4003 


2541 

6400 

1716 


2541 

6401 

2422 


2541 

6402 

1714 


2541 

6403 

4203 


2841 

6404 

4024 


2541 

6405 

1740 


2841 

6406 

2208 


2541 

6407 

2324 


2641 

6410 

0122 


2541 

2541 

2542 
2643 

6411 

2486 

/ 


4847 


•'WAITING POR " 
TEXT "LT0 


PLEASE READY IT * 


OR TYPE CONTROL C TO RESTART 
EJECT 



2544 



/ 


2545 

6412 

0036 

INVH, 

LN6H-.-1 

2546 

6413 

4547 


4547 

2547 

6414 

1116 



2547 

6419 

2601 



2547 

6416 

1411 



2547 

6417 

0440 



2547 

6420 

0310 



2547 

6421 

0122 



2547 

6422 

0103 



2547 

6423 

2405 



2547 



TEXT 

* INVALID CHARACTER 

2550 

6424 

2254 



2650 

6428 

4347 



2550 

6426 

1722 



2650 

6427 

4011 



2550 

6430 

1520 



2550 

6431 

2217 



2550 

6432 

2005 



2550 

6433 

2240 



2650 

6434 

2331 



2550 

6439 

1624 



2650 

6436 

0130 



2550 




OR IMPROPER 3YNTAX 

2551 

6437 

5643 



2551 





2652 

6440 

4743 



2552 

6441 

4720 



2652 

6442 

1405 



2652 

6443 

0123 



2552 

6444 

0640 



2552 

6446 

0317 



2552 

6446 

2222 



2552 

6447 

0603 



2552 

6496 

2456 



2552 




PLEASE CORRECT." 

2553 



( 


2554 




EJECT 



2699 



/ 

2696 

6451 

0026 

INCH 

2557 

6452 

4947 


256(9 

6453 

2417 


2560 

6454 

1740 


2560 

6455 

1501 


2560 

6456 

1631 


2560 

5457 

4003 


2560 

6460 

1001 


2560 

6461 

2201 


2560 

6462 

0324 


2560 

2560 

6463 

0922 

TEXT 

256} 

6464 

2343 


2661 

6465 

4711 


2661 

6466 

1640 


2561 

6467 

2001 


2561 

6470 

2201 


2561 

6471 

1906 


2561 

6472 

2405 


2561 

6473 

2240 


2961 

6474 

2324 


2961 

6475 

2211 


2561 

6476 

1607 


2561 

6477 

6600 


2561 




2562 



/ 

2563 

6500 

0014 

NOFH 

2564 

6601 

4847 


2565 

6502 

1617 


2565 

6503 

4019 


2585 

6504 

1722 


2565 

6505 

0840 


2569 

6506 

0611 


2565 

6507 

1405 


2565 

6510 

2340 


2665 

6511 

0114 


2565 

6512 

1417 


2565 

6313 

2705 


2965 

2969 

6314 

0456 

TEXT 

2566 

2567 



/ 


N0FH-,«1 

4547 


"TOO MANY CHARACTERS 


IN PARAMETER 8TRING," 

OFOH-.-l 

4947 


"NO MORE FILES ALLOWED, 


EJECT 



26 70 



/ 



8571 

6615 

0827 

OFDM, 

nokap-.-i 


2872 

6516 

4947 


4947 


2873 

6517 

1716 




2873 

6520 

1431 




2873 

6521 

4017 




2673 

6522 

1605 




2673 

6523 

4017 




2873 

6524 

2884 




2573 

6525 

2026 




2573 

6526 

2440 




2873 

6527 

0611 




2573 



TEXT 

"ONLY ONE 

OUTPUT PILE 

2574 

6530 

1405 




2574 

6531 

4347 




2674 

6532 

0114 




2874 

6533 

1417 




2674 

6634 

2706 




2674 

6535 

0440 




2574 

6936 

1716 




2574 

6537 

4001 




2574 

6540 

1691 




2574 

6641 

4004 




2674 

6642 

0920 




2674 

6643 

1103 




2674 

6544 

0566 




2874 




ALLOWED ON 

ANY DEVICE 

2878 



✓ 



2676 




EJECT 






2677 



/ 



acme 



/ 

SPECIAL 

MESSAGE 

264} 



/ 



2602 

6545 

0061 

NOWAP, 

61 


2603 

6546 

6201 


CDP 

0 

2604 

6547 

6561 


.♦2 


260S 

6550 

0036 


EH0-.-1 


2606 

6551 

4545 


4945 


2607 

6552 

4547 


4547 


2610 

6553 

2516 




2610 

6554 

0102 




2610 

6555 

1405 




2610 

6556 

4024 




2610 

6557 

1740 




2610 

6560 

0114 




2610 

6561 

1417 




2610 

6562 

0301 




2610 

6563 

2405 




2610 

6564 

4027 




2610 

6565 

1722 




2610 

6566 

1311 




2610 

6567 

1607 




2610 

6570 

4001 




2610 

6571 

2206 




2610 

6572 

0123 




2610 




TEXT 

"UNABLE TO ALLOCATE WORKING AREAS 

2611 

6573 

5643 




2611 

6574 

4723 




2611 

6579 

1716 




2611 

6576 

2422 




2611 

6577 

1714 




2611 

6600 

4003 




2611 

6601 

4024 




2611 

6602 

1740 




2611 

6603 

2206 




2611 

6604 

2324 




2611 

6605 

0122 




2611 

6606 

2466 




2611 




CONTROL 

C TO RESTART." 

2612 



/ 



2613 




EJECT 






aeu 



2648 



2646 



264*7 

6627 

•0012 

afcfcfe 

6616 

684(7 

2621 

6611 

1617 

262 l 

6612 

'2-440 

2621 

6643 

0146 

2621 

'6614 

404-4 

2621 

6616 

0420 

2621 

6616 

'402*6 

2621 

8617 

ITH 

2621 

6628 

•2616 

2621 

6621 

*0366 

2621 



2622 

6622 

6020 

2626 

6823 

4647 

2624 

6624 

2208 

2624 

6626 

2168 

2624 

6626 

6923 

2624 

6627 

6-468 

2624 

66OT! 

6640 

2624 

6661 

6614 

2624 

6632 

1436 

2624 

6633 

■40W4 

2624 

6634 

1763 

2624 

6638 

2340 

2624 

6636 

1617 

2624 

6837 

2*48 

2624 

6660 

6630 

2624 

6661 

1126 

2624 

6662 

246 6 

2624 



2628 



2626 





TE'X’T 

§*1. 


***'•.■»* 

#0 


'W %1N 4#7 ¥0UWfc,« 
4847 


ymn 

v 


'^wuerreo vn* 'uws wr *p«m, 

*WMfT 



2627 



/ 

2660 

6643 

0017 

EH2 > 

2631 

6644 

4547 


2632 

6645 

1725 


2632 

6645 

2420 


2632 

6647 

2S24 


2632 

6650 

4006 


2632 

6651 

1114 


2632 

6662 

0540 


2632 

6653 

0114 


2632 

6654 

2200 


2632 

6655 

0104 


2632 

6656 

3140 


2632 

6657 

0530 


2632 

6660 

1123 


2632 

6661 

2423 


2632 

6662 

5600 


2632 



TEXT 

2633 

6663 

0022 

EH3, 

2634 

6664 

4547 


2639 

6665 

1116 


2635 

6666 

2326 


2635 

6667 

0606 


2635 

6670 

1103 


2639 

6671 

1105 


2639 

6672 

1624 


2639 

6673 

4023 


3636 

6674 

2001 


2635 

6675 

0305 


3636 

6676 

4024 


2635 

6677 

1740 


2636 

6700 

0322 


2635 

6701 

0501 


2635 

6702 

2405 


2635 

6703 

4006 


2635 

8704 

1114 


2635 

6705 

0536 


2635 



TEXT 

2636 

6706 

0010 

EH4, 

2637 

6707 

4547 


2640 

6710 

1116 


2640 

6711 

0405 


2640 

6712 

3040 


2640 

6713 

1123 


264(9 

6714 

4006 


2640 

6713 

2514 


2640 

6716 

1456 


2640 



TEXT 

2641 



EH5- 

2648 



/ 

2643 





EH3-.-1 

4947 


"OUTPUT FILE ALREADY EXISTS." 

EH4-.-1 

4547 


"INSUFFICIENT SPACE TO CREATE FILE, 

EH9-.-1 

4547 


"INDEX IS PULL." 


EJECT 



( 


2*44- 



/ 


2648 



/ 

0^/mt.T UNJ.T 


6517 

4545 


4*** 

26*0 

6726 

4545 


*5*5 

2651 

57*1 

*5*7 


4547 

2652 

6722 

0425 



2652 

6723 

66*1 



2652 

6724 

2514 



2652 

6725' 

7*4* 



2562 

6726 

0*85 



2652 

6727 

26*8’ 



2652 

6756 

754* 



2652 



mr 

"DEFAULT tm % " 

2655 

6751 

1*24 



2655 

6752 

6*0* 



2655 



DEPDfV,. 

T.E*T *I*T2* 

2654 



h 


2656 



A 


2656 



/ 

INPUT BUFFER 6122 CHARACTERS) 

2657 



/ 


2666 

6755 

*212 

D6CNN0.- fc 

212 

2 Mi 

6754 

*21(2 


212- 

2662 

6755 

*21* 


217 

2665 

6756 

0*12 


212 

2664 

6757 

001* 


212 

2665 

6740 

*212 


212 

2666 

6741 

*71-7 


212 

2667 

67*2 

*217 


212 /THAT* 6 

2676 

67*5 

091* 


*12 

2671 

67*4 

*212 


212 

2672 

67*5 

*212 


217 

2675 

6746 

*712 


212 

267* 

67*7 

0*17 


21* 

2676 

6750 

*712 


21* 

2676 

6751 

*812 


212 /THAT* i» 

2677 

6752 

0600 

GHNO, 

til 

27 »0 



/ 


2751 




ASHXFM 76te«2«»*CH8D 

2722 



ERROR 

/•UPPER OVERLAPS RASE 

2765 



/ 


2784 




EJECT 



2705 



/ 



2706 



PAGE 



2707 



/ 



2710 



/ INITIALIZATION 

ROUTINE TO LOAD PAGE 0 

2711 



/ 



2712 

7000 

1222 

CMPMOV, TAD 

PTHING 


2713 

7021 

3010 

DCA 

AX0 


271* 

7002 

1221 

TAD 

MTHING 


2715 

7003 

3002 

OCA 

TMPl 


2716 

7004 

1220 

TAO 

CMVADD 


2717 

7005 

3011 

DCA 

AX 1 


2720 

7006 

6201 

cor 

0 


2721 

7007 

1410 

TAO I 

AX0 


2722 

7010 

3411 

DCA I 

AX1 


2723 

7011 

2002 

I8Z 

TMPl 


2724 

7012 

5207 

JMP 

.-3 


2725 

7013 

1512 

TAD I 

PHICDF 

/GET HIGH CDF 

2726 

7014 

3113 

DCA 

LSTCDF 

/FOR THIS MACHINE 

2727 



/ 



2730 



/ SETUP 

COMMAND INPUT FDB 

2731 



/ 



2732 

7015 

4471 

JM8 I 

MVC 


2733 

7016 

7200 

CIA 


/FORGET FDB ADDR 

2734 

7017 

5457 

JMP I 

CMI 

/BEGIN IN ERNEST 

2735 



/ 



2736 



/ THE8E 

THINGS GO 

IN PAGE ZERO 

2737 



/ 



2740 

7020 

0046 

CMV ADD , P0LOC- 

1 


2741 

7021 

7705 

MTHING, LTMINC 



2742 

7022 

7022 

PTHING, ♦ 



2743 



AD J 9•* 

P0LOC 


2744 



/ 



2745 



/ STATE 

INDICATORS 

2746 



/ 



2747 



MAJOR* ,-ADJ 



2750 

7023 

0004 

4 



2751 



MINOR* ,-ADJ 



2752 

7024 

0003 

3 



2793 



FIICNT* ,-AOJ 



2754 

7025 

7777 

■ 1 



2755 



UNIT* ,-ADJ 



2796 

7026 

0040 

40 


/TTY 

2757 



NEMCHRa ,-ADJ 



2760 

7027 

6752 

CMND 



2791 



ISTCHR* ,-ADJ 



2762 

7030 

6751 

CMND-1 



2763 



LSTDEL* ,-ADJ 



2784 

7031 

5751 

CMND-1 



2766 



DFUSWs ,-ADJ 



2766 

7032 

7777 

-1 


/ZERO TO SUPPRESS 

2767 





/DEFAULT UNIT 0I3PLAY 

277«5 



/ 



2771 



EJECT 





277* 



/ 


2773 



/ 

IMPORTANT ROOTS** 800R188I8 ANO CONSTANTS 

2774 



✓ 


277® 




,-AOJ 

2776 

7033 

4003 


CMX000 

2777 



NIWHf 

• •AOJ 

3006 

7034 

4020 


CMI100 

3001 



oocmr* 

,-ADJ 

9002 

7035 

4400 


CMI200 

3003 



CMC* 

• •AOJ 

3004 

7036 

5600 


CMC060 

3006 



CMW* 

• •AOJ 

3006 

7037 

8633 


CMN000 

3*07 



HUP* 

• •AOJ 

3010 

7040 

6723 


MU0000 

3011 



INV* 

• •AOJ 

3012 

7041 

4680 


CMI860 

3013 



D8PEH" 

.-AOJ 

3014 

7042 

4602 


CMI260 

3016 



UOK* 

• •AOJ 

3016 

7043 

6320 


UOK000 

3017 



NXTOU* 

• •AOJ 

3020 

7044 

4842 


NXU000 

3021 



MVC* 

.-AOJ 

3022 

7046 

8400 


MVC000 

3023 



WTX* 

• •AOJ 

3024 

7046 

8664 


MTXiftt 

3028 



080* 

.•AOJ 

3026 

7047 

8742 


080600 

3027 



MJ8C* 

.-AOJ 

3030 

7060 

4720 


CMOS 10 

3031 



001V* 

.-AOJ 

9032 

7061 

8221 


CMO505 

3033 



PX8BRV* 

• •AOJ 

9034 

7052 

0210 


X8ERV 

3036 



/ 


3036 



07* 

• •AOJ 

3097 

7053 

0007 


7 

3040 



077* 

.-AOJ 

3041 

7084 

0077 


77 

3042 



040* 

• •AOJ 

3043 

7083 

0040 


40 

3044 



010* 

• ■AOJ 


7086 

0010 


10 

3046 



M10* 

• •AOJ 

3047 

;087 

7770 


• 10 

3060 



H20* 

.-AOJ 

30&1 

7060 

7760 


•20 

3082 



MBLNKS* 

• •AOJ 

3063 

7061 

3740 


• 4040 

3084 



M8PACE* 

,-ADJ 

3005 

7062 

7840 


■240 

3086 



M21B* 

• •AOJ 

3067 

7063 

7863 


•218 

3060 



MCOMMAt 

• •AOJ 

3821 

7064 

7624 


-284 

3062 



0L0AUX* 

• -ADJ 

3063 

7068 

7621 


7621 

3064 



0MXCO0* 

• •AOJ 

3066 

7068 

7744 


7744 „ 

9066 



L8TCO0* 

• •AOJ 

3067 

7067 

6211 


COP 10 


SB 



3070 


EJECT 


PARAMETER LISTS 


3075 



CMREADt 

.•ADJ 


3076 

7070 

0040 


40 


3077 

7071 

6801 


CDF 

0 

3100 

7072 

6762 


CMND 


3101 

7073 

0300 


300 


3102 

7074 

0000 


0 


3103 

7075 

0000 


0 


3104 



/ 

0 

/NEVER QUEUED 

3105 



/ 



3106 



CMPARM* 

.•adj 


3107 

7076 

0000 


0 

/CURRENT UNIT 

3110 

7077 

6811 


CDF 

10 

3111 

7100 

4000 


4000 


3112 

7101 

4000 


4000 


3113 

7102 

0000 


0 


3114 

7103 

0000 


0 


3115 



/ 

0 

/NEVER QUEUED 

3116 



/ 



3117 



DSPRMH 

.•ADJ 

/HELP DISPLAY 

3120 

7104 

0061 


61 


3121 

7109 

6801 


CDP 

0 

3122 

7106 

6100 


PUNH+1 


3123 

7107 

0055 


OUTH-FUNH-1 

3124 



/ 



3125 



DSPRM2* 

,-AOJ 

/INPUT DISPLAY 

3126 

7110 

0760 


60 


3127 

7111 

6201 


CDF 

0 

3130 

7112 

6733 


DSCMND 


3131 

7113 

0308 


305 


3132 



/ 



3133 



LTHlNGf 

PTHJNG- 

,»1 

3134 




A8M1FM 

140-.-ADJ 

3135 



ERROR 


/TOO MUCH IN PAGE 0 

3136 



7 



3137 




ASMIFN 

,37400-7000 

3140 



WARNING 


/NUMBER OF BLOCKS HAS 


ASMIFN CREF 
LISTAPE CREF 


CM02 



NO ENRONS 

C*Z100 

4244 

GDEV 

0078 

ADJ 

8784 

0*1800 

4400 

HgLNftS 

5817 

Axa 

0010 

■ 


HIP 

0064 

AX 1 

0011 

0*1210 


*1*000 

5723 

AX2 

0012 

4406 

holdu 

0048 

AX3 

0013 

0*1216 

4410 

• 


axa 

0014 

0*1218 

444* 



AX9 

0016 

0*1220 

4487 



canco 

4881 

0*1230 

4464 

INH 

6240 

CHNOEV 

5678 

C*X240 

4471 

I* V 

6068 

0*0010 

4720 

0*1280 

4800 

IN Vh 

6412 

0*0020 

47S4 

0*1260 

4602 

LNG* 

6481 

0*0030 

4786 

0*1300 

4618 

USTCDF 

0113 

0*0060 

4»63 

4748 

0*1900 

4600 

WSTCHR 

0064 

0*0660 

CHX006 

4611 

carom 

005S 

CNO07V 

CNO100 

8000 

8010 

0*1910 

C*X020 

4847 

4658 

LTMIN6 

major 

7705 

0047 

0*0200 

8017 

0*1930 

4666 

MBJ.NK8 

0105 

0*0205 

8088 

0*1050 

4675 

mco**a 

0110 

0*0210 

8048 

0*1970 

4701 

MCZ 

4517 

0*0212 

8047 

C*X000 

4710 

MOSUL 

4524 

0*0214 

8063 

CNN© 

6758 

mosks 

45«1 

0*0220 

8104 

C**AR* 

0122 

*0* ■ 

6023 

C*t>83& 

8107 

C*N*OV 

7000 

MINOR 

0050 

0*0240 

8116 

0**1AO 

0114 

MJ0C 

0074 

0*0300 

6126 

CMVADO 

7020 

MLCMND 

4133 

0*0400 

5131 

c** 

0083 

MOOS* 

0040 

0*0410 

8143 

' 0**000 

5633 

NONE 

7240 

0*0800 

5200 

0**010 

8680 

MPRMM 

5741 

0*0802 

8818 

COMPAQ 

8124 

MSPACi 

0106 

0*0808 

5821 

CNE7 

0014 

*tab 

4518 

0*0810 

8837 

02 MCA 

4820 

MTNJNG 

7921 

0*0880 

8246 

~ 02*00 

4822 

NTMREE 

7346 

0*0830 

8850 

„„©EFOfV 

6731 

NT NO 

7344 

0*0840 

8287 

- ‘ ©E US 

4826 

MVC 

0071 

0*0880 

5266 

OEVXl 

6026 

NVC000 

5400 

0*0560 

53*7 

DEU8W 
01 Sk 

0086 

HVC010 

8441 

0*0870 

8311 

0000 

MVC020 

8483 

0*0880 

5313 

0UI8T 

6061 

MVC030 

8462 

0*0800 

8351 

OOCHN 

0061 

NVC03S 

5466 

CM6 

0062 

OOEO 

4712 

MVC040 

6470 

C*6TMP 

5632 

BSC**© 

6733 

MVC100 

5622 

0*6000 

5600 

O0ML.N 

6717 

MVC110 

8553 

0*6010 

8630 

08* 

0073 

MVC120 

5557 

0*1 

0087 

0**E* 

0066 

*V C200 

8661 

C*IN1T 

4000 

DSPRMt 

0130 

NVC300 

5564 

0*1800 

4003 

qS*N*2 

0134 

*10 

0103 

0*1080 

4111 

08NRM3 

5766 

M2* 

0104 

0*1060 

4016 

©8N000 

8742 

*216 

0107 

e*ii00 

4020 

OX 

0200 

*270 

8316 

0*1110 

4027 

e*0 

6607 

*40 

4714 

0*1180 

4061 

EHl 

6622 

*5 

8815 

0*1130 

4061 

E*2 

6643 

*6 

4*61 

0*1140 

4071 

E*3 

666© 

NEMCHR 

0083 

0*1142 

4074 

8*4 

6706 

*E*H 

0060 

0*1148 

4106 

E*0 

6717 

NOPH 

6500 

0*1180 

4200 

IRLST 

5007 

nonap 

6846 

C*Xl84 

4202 

ENNORM 

6072 

NXTOU 

0070 

0*1184 

4230 

EXIT 

0026 

NXU906 

4842 

0*1188 

4232 

*IUC*T 

0661 

NXU010 

4543 

0*1186 

4238 

FOUR 

7307 

NXU020 

4850 

0*1160 

4240 

NUN* 

6077 

OP OH 

8515 



ONE 

7201 

TPTB 

5520 

QUTH 

Si 95 

TWO 

7305 

PqMNo 

4152 

UNIT 

0052 

PDELS 

4529 

UOK 

0067 

POEVU 

5317 

UOK000 

9320 

PDL8T 

4135 

UOK010 

9331 

PpX 

6022 

UOK020 

5346 

PFNAME 

6024 

WAIT 

0023 

pfnami 

6025 

WATRY 

0046 

• 


WRITE 

0022 



WTH 

6347 



WTHUNI 

6357 

PHICDF 

0112 

WTX 

0072 

PLDID 

4717 

WTX000 

5654 

PLFAUX 

0111 

WTX010 

5666 

PMQpSw 

5653 

* 


PREFLU 

0044 



PRMH 

6317 



P8TH 

4134 

X8ERV 

0210 * 

pthing 

7022 

* 


PXLEN 

5652 



PXSeRV 

0076 

w 


PGIOC 

00A7 



Pita 

0102 



pia 

5347 



P20 

4562 



P21B 

4131 



P240 

4516 



P40 

0101 



P440 

5916 



PBbiottf 

5571 



P6045 

5722 



P7 

0077 



P7611 

5514 



P7612 

4715 



P7614 

5572 



P7616 

5513 



P7624 

5350 



977 

0100 



97767 

4715 



READ 

0021 



8CNCTU 

4713 



SETINT 

0020 



SIX 

7327 



8PFC 

4762 



spfpet 

6021 



8PF000 

6000 



8PMC0M 

5123 



8TATEH 

6066 



TOK 

5721 



TERM 

4523 



three 

7325 



TIN 

5521 



TITMQK 

5720 



TMPl 

0002 



TMPg 

0003 



TMP3 

0004 



TMP4 

0005 



TMP5 

0006 



TMPfi 

0007 





0001 

0002 

0003 

0004 

0006 

0006 

0007 

0010 

0011 

0012 

0013 

0014 

0016 

0016 

0017 

0020 

0021 

0022 

00fe3 

0024 

::i; 

0027 

0039 

0091 

0032 

0999 

0094 

0096 

0096 

0937 

0040 

0941 

0042 

0049 

0044 

0048 

0046 

mi 

0962 

0069 

0064 
00 ( 
Mi 

tin 

09«i 

0042 

0069 

0064 

till 

sis 

0071 
0072 


f 

i 

/ 

/ 


LOP SYSTEM JOB CONTROL 
INDEX SERVICE ROUTINES 


/CORVRI6HT 1670) 0I6ITAL EQUIPMENT CORP. 


/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

t 

/ 

( 

l 

/ 

* 

/ 

/ 

/ 

/ 

/ 

/ 

/ 


MAYNARD, MASS, 01764 


VERSION 01 0ECCM6ER 1, 
JUO LEONARD 

CALLING SEQUENCE! 


TAP 

CDF 

CIF 

JMf 

LIST 

Issstn 


function 


XSERV 


1670 


/SEE BELOW 
/THIS FIELD 
/XSERV FIELD 

/ADDR OF NAME, ETC 
/ERROR RETURN ADDRESS 


FUNCTION IS DETERMINED SY AC BITS 0- 
0) LOOKUP 
II C0IATE 
21 DELETE 
31 SET HA 
41 RENAME 
91 TRUNCATE 
8) ALIAS 
71 IDENTIFY 


111 


/NOT IMPLEMENTED 
/NOT IMPLEMENTED 
/NOT IMPLEMENTED 


Llf? HAS THE FOLLOWING FORMATl 


(3 WORDS) 
(2 WORDS) 


FILM** 

.EXT 
AUX 

START BLOCK 
LENGTH IN BLOCKS 

CREF014 


PHOOE 

FIELD 

*40 

XSFaie 

XLFsS 

XBF«10 

TMPH2 

TMP2«3 

TMPSM 

TMR4I6 

TMP686 

TMFfl«7 

AX0H0 

AXlflll 

AX2M2 


/LISTAPE UNIT 


/THIS FIELD 
/LIST FIELD 
/buffer FIELD 


EJECT 



0073 



/ 




0074 



/ 




0075 



/ 

RAGE 0 

VARIABLES 

0076 



/ 




0077 



/ 




0100 



DUST® 

7614 

/DISPLAY LIST AREA IN FIELD 0 

0101 



/ 




0102 



XT 1 * 

TMP1 


/MONITOR TEMPS 

0103 



XT2» 

TMP2 



0100 



READ* 

21 



0105 



WRITE* 

22 



0106 



/ 




0107 

0040 

0000 

M0D8W , 

0 


/■I IP INDEX MODIFIED 

0110 



/ 


CMI 

MUST BE INFORMED IF 

0111 



/ 


THIS 

IS NOT LOCATION 40 

0112 

0041 

0000 

XPOINT, 

0 


/THIS ENTRY 

0113 

0042 

0000 

XPREP, 

0 


/PRICEDIN8 ENTRY 

0114 

0043 

0000 

XNXEP , 

0 


/NEXT ENTRY 

0115 

0044 

0000 

XECNT, 

0 


/ENTRY COUNTER 

0116 

0045 

0000 

XlIN, 

0 


/NO OF ENTRIES 

0117 

0046 

0000 

XERCOD, 

0 


/ERROR CODE 

0120 

0047 

0000 

XLIST, 

0 


/LIST ADDR 

0121 

0090 

0000 

XPIEN, 

0 


/MINUS LEN OF REQUEST 

0122 

0031 

0000 

XNWA8W, 

0 



0123 

0032 

0003 

DXFR3T , 

3 



0124 

0053 

0000 

DXLAST, 

0 



0125 



/ 




0126 



/ 




0127 

0094 

4040 

HBLNKS, 

4040 


/HALFWORD BLANKS 

0130 

0055 

3740 

MBINKS, 

*4 040 



0131 

0036 

4700 

TABNUL, 

4700 



0132 

0057 

4345 

TCRLP, 

4345 



0133 

0060 

6201 

KCDF, 

CDF 



0134 

0061 

0005 

PS, 

5 



0135 

0062 

0007 

P7, 

7 



0136 

0063 

0010 

P 1 0 , 

10 



0137 

0064 

7770 

M10, 

*10 



0140 

0063 

0020 

P20, 

20 



0141 

0066 

7760 

M20, 

-20 



0142 

0067 

0030 

P30, 

30 



0143 

0070 

7750 

M30, 

-30 



0144 

0071 

7740 

M40» 

-40 



0145 

0072 

0077 

977 , 

77 



0146 

0073 

0100 

PI 00, 

100 



0147 

0074 

0240 

P240, 

240 



0150 

0073 

7774 

M 4 | 

-4 



0151 

0078 

7773 


-5 



0192 

0077 

7772 

M6 j 

-6 



0153 

0100 

7400 

M400 , 

-400 



0154 



/ 




0155 

0101 

0215 

CARRET, 

215 



0136 

0102 

0212 

UNFED, 

212 



0137 



/ 




0160 




EJECT 






( 


Xs ft <t> 


sat 

00 AS 
0003 
0004 
0000 
0006 
00 07 
0010 
00 a 
0010 
0013 
0014 
0010 
0010 
0017 
0080 
0021 
0028 
0023 
0024 
00 28 
0086 
0027 
0030 
0081 

0032 

0038 

0034 

0085 

0036 

0037 

0040 

0041 


r 

/ 

/ 

/ 


LDP BYSTIH JOt CONTROL 
INDEX SERVICE ROUTINES 


/COPYRIGHT 10707 DIGITAL EQUIPMENT CORP. 


/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

t, 

f 

/ 

/ 

/ 

/ 

/ 

h 

/? 

i 

/ 

/ 

/. 

/ 


MAYNARD, MASS, 0.1734 


VERSION 01 DECEMBER l, 
JUO LEONARD 

CALLING SEQUENCE I 


TAOj 

COR 

CIF 

JM8, 

LIST' 

IRRTN 


FUNCTION 


X.8ERV 


1070 


/SEE BELOW 
/THIS RICLD 
/X8ERV FIELD 


/ADOR OF NAME, ETC 
/ERROR RETURN ADDRESS 


FUNCTION 18 DETERMINED BY AC BITS 0-111 
01 LOOKUP 
II, CREATE 
21 DELETE 
3.1 GET WA 
44, RENAME 
3* TRUNCATE 
84 ALIAS 
71. IDENTIFY 


/.NOT IMPLEMENTED 
/NOT IMPLEMENTED 
/NOT IMPLEMENTED 


LIST HAS THE FCLLOW-INO FORM ATI. 


FILM. AM- 
• EXT 


(8 WORDS) 
(2, WORDS) 



0042 

/ 

AUX 



0048 

/ 

START 6L0C1L 



0044 

/ 

LENGTH, IN ALOEMk 


0043 

/ 




0046 


CR€jF*44 

/LISTAPE UNIT 


0047 

/ 




0660 


RHODE 



0881 


FIELD 1 



0082 


•46 



0063 

/, 



" 

0034 


XS#«10 

/THIS FIELD 


SSIf 


XLFs*0 

/LIST FIELD' 


0056 


xaF*itt 

/BUFFER FIELD 


0067 

/ 



r 

0060 


TMRl*2 



00*1 


THP 8*3 



0062 


TMP8«4 



0063 


?MP4«3 



0064 


TMP8t6 



0036; 


TMP6»7 



0686 


AX0B10 



0067 


AX I mil 



007* 


AX2«18 



0671 

/ 




0072 


EJECT 




0073 



/ 




0070 



/ 




0075 



/ 

PAGE 0 

VARIABLES 

0076 



/ 




0077 



/ 




0100 



DLI8T 0 

7614 

/DISPLAY LIST AREA IN FIELD 0 

0101 



/ 




0102 



XTl» 

TMP1 


/MONITOR TEMPS 

0103 



XT2® 

TMP2 



0104 



READ? 

at 



0105 



WRITEa 

22 



0106 



/ 




0107 

0040 

0000 

MQD3W , 

0 


/■l IF INOEX MODIFIED 

0110 



/ 


CM! 

MUST BE INFORMED IF 

0111 



/ 


THIS 

IS NOT LOCATION 40 

0112 

0041 

0000 

XPOINT, 

0 


/THIS ENTRY 

0113 

0042 

0000 

XPREP, 

0 


/PRECEDING ENTRY 

0114 

0043 

0000 

XNXEP, 

0 


/NEXT ENTRY 

0115 

0044 

0000 

XECNT. 

0 


/ENTRY COUNTER 

0116 

0045 

0000 

XLIN, 

0 


/NO OF ENTRIES 

0117 

0046 

0000 

XERCOD, 

0 


/ERROR CODE 

0120 

0047 

0000 

XUflT, 

0 


/LIST ADDR 

0121 

0030 

0000 

XFLEN, 

0 


/MINUS LEN OF REQUEST 

0122 

0051 

0000 

XNWA8W, 

0 



0123 

0052 

0003 

DXPRSTp 

3 



0124 

0053 

0000 

DXLA3T, 

0 



0125 



/ 




0126 



/ 




0127 

0054 

4040 

HBLNKS, 

4040 


/HALFWORD BLANKS 

0130 

0035 

3740 

MBLNK3, 

®4040 



0131 

0036 

4700 

TABNUL, 

4700 



0132 

0057 

4345 

TCRLP , 

4345 



0133 

0060 

6201 

KCDP t 

CDF 



0134 

0061 

0005 

PS, 

5 



0135 

0062 

0007 

P7, 

7 



0136 

0063 

0010 

P10p 

10 



0137 

0064 

7770 

Mia, 

*10 



0140 

0063 

0020 

P20, 

20 



0141 

0066 

7760 

M20, 

»20 



0142 

0067 

0030 

P30, 

30 



0143 

0070 

7750 

M30, 

ra30 



0144 

0071 

7740 

M40, 

w40 



0145 

0072 

0077 

P77 , 

77 



0146 

0073 

0100 

P 1 00 , 

100 



0147 

0074 

0240 

P2401 

240 



0150 

0075 

7774 

M 4 g 

13 4 



0151 

0070 

7773 

MB, 

*5 



0152 

0077 

7772 

MB# 

( 9 $ 



0153 

0100 

7400 

M400 t 

re 4 0 0 



0164 



/ 




0155 

0101 

0815 

CARPET # 

215 



0156 

0102 

0212 

LINKED# 

213 



0167 

0160 



/ 

EJECT 






0161 



/ 



0162 



/ 

ERROR RETURNS 

0163 



/ 



0164 

0103 

2046 

XERR7, 

ISZ 

XERCOD 

0165 

0104 

2046 

XERR6, 

ISZ 

XERCOD 

0166 

0105 

2046 

XERR5, 

ISZ 

XERCOD 

0167 

0106 

2046 

XERR4, 

ISZ 

XERCOD 

0170 



/ 



0171 

0107 

2046 

XERR3, 

ISZ 

XERCOD 

0172 



/ 



0173 

0110 

204$ 

XERR2, 

ISZ 

XERCOD 

0174 



/ 



0175 

0111 

2046 

XERR1, 

ISZ 

XERCOD 

0176 



/ 



0177 



/ 



0200 

0112 

5513 

XERR0, 

JMP I 

.♦l 

0201 

0113 

0260 


XERRET 


0202 



/ 



0203 

0114 

0256 

SRET, 

XSRET 


0204 

0115 

0420 

VALID, 

XVALID 


0205 

0116 

0261 

FIND, 

XFIND 


0206 

0117 

0725 

DZERO, 

XDZERO 


0207 

0120 

1307 

MAKWA, 

XMAKWA 


0210 

0121 

1340 

MCQPY, 

XMCOPY 


0211 

0122 

1017 

PPEB, 

XPREB 


0212 

0123 

1031 

NXEB, 

XNXEB 


0213 

0124 

1061 

PAND, 

XPAND 


0214 

0125 

0600 

DELET, 

XDILET 


0215 

0126 

0737 

PBLNK, 

XPBLNK 


0216 

0127 

1000 

ALCHK, 

XALCHK 


0217 

0130 

0400 

LIMIT, 

XLIMIT 


0220 

0131 

1400 

LNCLC, 

XLNCLC 


0221 

0132 

1046 

L8TCHK, 

XLCHK 


0222 

0133 

0341 

FULL, 

XFULL 


0223 



XBUFFR* 

4000 


0224 

0134 

4000 

XBUF, 

XBUFFR 


0225 



PXBFR" 

XBUF 


0226 



/ 



0227 

0135 

3206 

PRPLY, 

DXRPLY-i 

0230 

0136 

7614 

PLIST, 

OLIST 


0231 



/ 



0232 



/ 



0233 



/ 



0®34 



/ 



a'235 



/ 

MICRO-PROORAMMEO 

0236 



/ 



0237 



ONE* 

CLA IAC 


0240 



TWO* 

CLA CLL 

IAC RAL 

0241 



THREE" 

CLA STL 

I AC RAL 

0242 



FOUR" 

CLA CLL 

I AC RTL 

0243 



SIX* 

CLA STL 

I AC RTL 

0244 



MONE" 

CLA CMA 


0245 



MTWO" 

CLA CLL 

CMA RAL 

024fi 



MTHREE* 

CLA CLL 

CMA RTL 

0247 



AC4000* 

CLA STL 

RAR 

0260 



AC2000* 

CLA STL 

RTR 

0261 



AC6000* 

CLA STL 

I AC RTR 

0262 



/ 



0253 




EJECT 



/7I IDENTIFY NOT IN WA 

/61 attempted infinite replace 
/siattempt to truncate an alias 

/4IINDEX FULL • CREATE, 

REPLACE, TRUNCATE, OR ALIAS 
/3lINSUFFICIENT SPACE - 
CREATE OR REPLACE 
/21 NAME DUPLICATION - 
CREATE OR ALIAS 
/UNO SUCH NAME - LOOKUP, 
TRUNCATE, RENAME, OR ALIAS 

/0IINVALIO INDEX 


/DISPLAY LIST 



0294 



/ 




0295 




PAGE 



0286 



/ 




0297 



/ 

ENTRY POINT FOR 

display index 

0260 



/ 




0261 

0200 

0000 

DENT $ 

0 



0262 

0201 

7306 


TWO 



0269 

0202 

6214 


RDF 


/GET CALLERS field 

0264 

0203 

1060 


TAD 

KCDP 

/MAKE CIF CDF 

0266 

0204 

3267 


DC A 

XSRMF 


0266 

0209 

1200 


TAD 

DENT 


0267 

0206 

3210 


OCA 

XSERV 


0270 

0207 

6643 


JMP I 

PDX 

/GO DI5P INDEX 

0271 



/ 




0272 



/ 

GENERAL 

SERVICES ENTRY POINT 

0279 



/ 




0274 

0210 

0000 

XSERVi 

0 



0279 

0211 

3244 


OCA 

XFUN 

/HOLD FUNCTION 

0276 

0212 

3046 


DC A 

XERCOO 

/CLEAR ERROR 

0277 

0213 

6814 


RDF 


/CALLERS FIELO 

0300 

0214 

1060 


TAD 

KCOF 

/BUILD CDF 

09^1 

0219 

3246 


DC A 

XSCDF+i 


0302 

0216 

7306 


TWO 



0303 

0817 

1346 


TAD 

X5CDF+1 

/BUILO CIF CDF 

0304 

0220 

38S7 


DCA 

XSRMF 


0309 

0221 

1610 


TAD I 

XSERV 

/LIST ADQR 

0306 

0222 

3047 


DCA 

XLI3T 


0307 

0223 

2210 


I8Z 

XSERV 


0310 

0224 

6811 


CDF 

XSF 


0311 

0225 

1944 


TAD 

XFUN 

/GET FUNCTION 

0912 

0226 

0062 


AND 

P7 

/BITS 9-U 

0313 

0227 

1832 


TAD 

X8JMP 

/MODIFY JUMP 

0314 

0230 

3331 


DCA 

.♦1 


0316 

0231 

9400 


JMP 1 


/REPLACED FOR FUNCTION 

0316 

0232 

6633 

xajMP, 

JMP I 

.*1 


0317 

0233 

1113 


X8L00K 



0320 

0234 

1132 


XSCRET 



0321 

0239 

1126 


XSDELT 



0322 

0296 

0635 


XSGWA 



0323 

0237 

0847 


X8HALT 



0324 

0240 

0847 


X8HALT 



0329 

0241 

0847 


X8HALT 



0326 

0242 

1423 


X8IDEN 



0327 



/ 




0330 

0243 

1600 

POX, 

DX 



0331 



/ 




0392 




EJECT 





0333 

0334 

0336 

0244 

0000 

0336 

0246 

6201 

0337 

0246 

8644 

0340 

0341 

0342 

0343 

0247 

7402 

0344 

0250 

7200 

0346 

0251 

4244 

0346 

0282 

1610 

0347 

0253 

3210 

0380 

0284 

1046 

0381 

0255 

7410 

0382 

0383 

0384 

0385 

0256 

2210 

0386 

0267 

6203 

0367 

0260 

5610 

0360 

0361 

0362 




/ 


XFUN« 

• 


X8CDP, 

0 

CDF 

JMP I 

XSCDF 

/ 



/ 

ERROR RETURNS 

/ 

XSHALTf 

HLT 


XERRET, 

CLA 



JMS 

XSCDF 


TAD I 

XSERV 


OCA 

XSERV 


TAD 

XERCOD 


SKR 


/ 



/ 

NORMAL 

RETURN 

1 

XSR6Ti 

182 

XSERV 

X8RMF t 

CXF CDF 
JMP I 

XSERV 

/ 



/ 

EJECT 



/CALLERS HELD 


/GET CALLERS FIELD 
/ERROR RETURN ADOR 


/RESTORE CALLERS FXELOS 


0365 



/ 




0364 



/ 

FIND AN 

INDEX ENTRY BY NAME 

0365 



/ 




0366 

0261 

0000 

X F J N D 9 

0 



0367 

0262 

4515 


JMS 1 

valid 

/CALCULATE NUMBER OP ENTRIES 

0370 

0263 

0112 


XERR0 


/TAKE ERROR IF INDEX INVALID 

0371 

0264 

7346 


MTHREE 


/OMIT FIRST THREE 

0372 

0265 

1045 


TAD 

XLEN 


0373 

0266 

7041 


CIA 



0374 

0267 

3044 


DC A 

XECNT 

/INDEX ENTRY COUNT 

0375 

0270 

1067 


TAD 

P30 


0376 

0271 

1134 


TAD 

XBUF 

/SKIP 1 ENTRY 

0377 

0272 

3041 


OCA 

XPOINT 

/INITIALIZE POINTER 

0400 

0273 

6201 


CDF 

XLF 

/LIST FIELD 

0401 

0274 

1447 


TAD I 

XLIST 

/PICK UP FIRST WORD 

0402 

0275 

7041 


CIA 



0403 

0276 

3003 


DCA 

XT2 


0404 

0277 

6211 


CDF 

XBF 

/BUFFER FIELD 

0405 

0300 

1003 


TAD 

XT2 


0406 

0301 

1054 


TAD 

hblnks 

/LOOKING FOR BLANKS? 

0407 

0302 

7600 


SNA CLA 



0410 

0303 

5651 


JMP I 

XFIND 

/YES • RETURN NO FIND 

0411 

0304 

1441 

XFLOOP, 

TAD I 

XPOINT 

/FIRST WORD OF THIS ENTRY 

0412 

0305 

7450 


SNA 


/IS IT ZERO ENTRY? 

0413 

0306 

5661 


JMP I 

XFIND 

/YES* RETURN NO FIND 

0414 

0307 

1003 


TAD 

XT2 

/COMPARE SEARCH WORO 

0415 

0310 

7650 


SNA CLA 


/EQUAL? 

0416 

0311 

5320 


JMP 

XFREST 

/YES* COMPARE REST 

0417 

0312 

1063 

XNPRST, 

TAD 

P10 

/NO* LOOK AT NEXT 

0420 

0313 

1041 


TAD 

XPOINT 


0421 

0314 

3041 


DCA 

XPOINT 

/POINT TO NEXT 

0422 

0315 

S044 


ISZ 

XECNT 

/END OF INDEX? 

0423 

0316 

5304 


JMP 

XFLOOP 

/NO- CONTINUE SEARCH 

0424 

0317 

5661 


JMP I 

XFINO 

/YES* RETURN FAILURE 

0425 



/ 




0426 



/ 

FIRST WORDS MATCH » COMPARE REST 

0427 



/ 




0430 

0320 

1041 

XFRE5T f 

TAD 

XPOINT 


0431 

0321 

3010 


DCA 

AX0 


0432 

0322 

1047 


TAD 

XLIST 


0433 

0323 

3011 


DCA 

AX 1 


0434 

0324 

1075 


TAD 

M4 

/COMPARE 4 MORE 

0435 

0325 

3002 


DCA 

XT! 


0436 

0326 

6201 

XFRLP, 

CDF 

XLP 

/LIST FIELD 

0437 

0327 

1411 


TAD I 

AX 1 

/NEXT FROM LIST 

0440 

0330 

7041 


CIA 



0441 

0331 

6211 


CDF 

XBF 

/buffer field 

0442 

0332 

1410 


TAD I 

AX0 

/NEXT IN INDEX 

0443 

0333 

7640 


SZA CLA 



0444 

0334 

5312 


JMP 

XNFRST 

/NO MATCH 

0445 

0335 

2002 


ISZ 

XT1 

/CHECK COUNT 

0446 

0336 

5326 


JMP 

XFRLP 

/COMPARE NEXT 

0447 

0337 

2261 


ISZ 

XFINO 

/MATCH FOUND 

0490 

0340 

5661 


JMP I 

XFIND 


0451 



/ 




0452 




EJECT 





r 


0453 



/ 




0454 



/ 

TEST FOR 

\ INDEX 

FULL 

0453 



/ 

RETURNS! 



0456 



/ 


p+i 

/SUPER FULL *• NOT EVEN 

0457 



/ 


P+2 

/WA IS LAST ENTRY 

0460 



/ 


P+3 

/WA IS NOT LAST ENTRY 

0461 



/ 




0462 

0341 

0000 

XFUllf 

0 



0463 

0342 

7200 


CIA 



0464 

0343 

1134 


TAD 

XBUP 


0465 

0344 

1087 


TAD 

P30 


0466 

0345 

3003 


OCA 

XT2 

/SET POINTER 

0467 

0346 

7346 


MTHRIE 



0470 

0347 

1048 


TAD 

XLEN 


0471 

0350 

7041 


CIA 



0472 

0351 

3002 


DCA 

XT1 

/SET COUNTER 

0473 

0352 

1403 

XWLOOP# 

TAD I 

XT2 

/GET ENTRY 

0474 

0353 

7680 


SNA CI.A 


/IS IT WAT 

0475 

0354 

5363 


JMP 

XWA 

/YES 

0476 

esss 

1063 


TAD 

P10 

/NO 

0477 

0366 

1003 


TAD 

XT2 


0500 

0357 

3003 


DCA 

XT2 

/BUMP POINTER 

0501 

0360 

2002 


ISZ 

XT1 

/LAST ENTRY? 

0502 

0361 

0362 


JMP 

XWLOOP 

/NO 

0503 

0362 

5741 


JMP I 

XFULL 

/FIRST RETURN 

0504 



/ 




0605 

0363 

2002 

XWA, 

ISZ 

XT1 

/IS THIS LAST? 

0506 

0364 

2341 


ISZ 

XFULL 

/NO 

0507 

0365 

2341 


ISZ 

XFULL 


0510 

0366 

8741 


JMP I 

XFULL 

/RETURN P+2 OR 3 

0511 



/ 




0512 



/ 




0513 



/ 




0514 




PAGE 



0515 



/ 




0516 



/ 

CHECK FOR AC WITHIN BOUNDS 

0617 



/ 




0520 

0400 

0000 

XIIMIT, 

0 



0521 

0401 

3217 


DCA 

XLIM 

/HOLD AC 

0522 

0402 

7100 


cll 



0623 

0403 

1217 


TAD 

XLIM 


0524 

0404 

1600 


TAD I 

XLIMIT 

/COMPARE LOWER 

0528 

0405 

2200 


ISZ 

XLIMIT 


0526 

0406 

7680 


SNL CLA 


/SKIP IF GE 

0527 

040? 

8914 


JMP 

.*3 

/OUT OF SOUNDS 

0530 

0410 

1217 


TAD 

XLIM 


0531 

0411 

1600 


TAD I 

XLIMIT 

/COMPARE UPPER 

0532 

0412 

7670 


SZL SNA 

CLA 

/SKIP IF 5T 

0533 

04^3 

2200 


ISZ 

XLIMIT 

/IN BOUNDS 

0634 

0414 

2200 


ISZ 

XLIMIT 


0535 

0415 

1217 


TAD 

XLIM 

/RESTORE AC 

0536 

0416 

5600 


JMP I 

XLIMIT 


0537 



/ 




0540 

0417 

0000 

XLIM, 

0 



0641 



/ 




0542 




EJECT 







10643 



/ 




0644 



/ 

VALIDITY 

CHECK 

ON INDEX 

0546 



/ 




0546 

0420 

0000 

xvali d, 

0 



0647 

0421 

1620 


TAD I 

muo 

/ERROR RETURN ADDRESS 

0660 

0422 

3332 


DC A 

XNO 


0551 

0423 

2220 


xsz 

XVALID 


0552 

0484 

7307 


FOUR 



0553 

0425 

1134 


TAD 

XBUF 


0554 

0426 

3010 


DCA 

AX0 

/POINT TO FILE CONTROL 

0555 

0427 

6211 


CDF 

XBF 


0556 

0430 

1410 


TAD X 

AX0 

/BLOCK LEN 

0557 

0431 

1100 


TAD 

M400 

/P400? 

0560 

0432 

7640 


SZA CLA 



0561 

0433 

5330 


JMP 

XNVAL 

/NO 

0662 

0434 

1410 


TAD I 

AX0 

/INDEX LEN 

0563 

0435 

7050 


SPA SNA 


/POS e NONZERO? 

0564 

0436 

5330 


JMP 

XNVAL 

/NO 

0565 

0437 

1064 


TAD 

M10 


0566 

0440 

7740 


SMA SZA 

CLA 

/LI 10? 

066? 

0441 

5330 


JMP 

XNVAL 

/NO 

0570 



/ 




0571 



/ 

VALIDATE VOLUME 

LEN 

0 5 7 § 

0442 

1410 

/ 

TAD I 

AX0 

/GET VOL LEN 

0374 

0443 

4630 


JM8 I 

LIMIT 


0578 

0444 

7000 


® 1000 



0876 

0445 

6000 


•>2000 


/TAPE LEN? 

0577 

0448 

7410 


3KP 


/NO 

0600 

0447 

5254 


JMP 

XVSCAN 

/YE3, OK 

0601 

0450 

4530 


JM8 I 

LIMIT 


0602 

0451 

2000 


■ 6000 



0603 

0432 

1523 


■6260 


/DISK? 

0604 

0453 

5330 


JMP 

XNVAL 

/NO# ERROR 

0605 

0454 

3362 

XVSCAN, 

DCA 

XMOV7 

/SAVE VOL LEN 

0606 

0455 

4531 


JM8 I 

LNCIC 

/calculate length 

0607 

0436 

7346 


MTHREE 



0610 

0457 

1045 


TAD 

XLEN 


0611 

0460 

7041 


CIA 



0612 

0461 

3644 


DCA 

XECNT 


0613 

0463 

1067 


TAD 

P30 


0614 

0463 

1134 


TAD 

X0UP 


0615 

0464 

3041 


DCA 

XPOINT 


0616 

0465 

3003 


DCA 

XT2 

/LAST START 

06 i 7 

04gg 

3051 


DCA 

XNWA8W 

/CLEAR NOiNORKING.AREA SWITCH 

0680 



/ 




0681 




EJECT 





0622 



/ 




0623 

0467 

7327 

XVLOOP, 

SIX 



0624 

047i» 

1041 


TAD 

XPOINT 


0625 

0471 

3002 


DCA 

XT1 


0626 

0472 

1402 


TAD I 

m 

/PILE 8TAPT 

0627 

0473 

7460 


SNA 



0630 

0474 

5325 


JMP 

XMAYBE 

/NOBODY STARTS AT ZERO 

0631 

0475 

7161 


CIA STL 



0632 

0476 

1003 


TAD 

XT2 

/COMPARE LAST START 

0633 

0477 

7660 


SNL SZA 

CIA 

/IS THIS GREATER OR SAME? 

0634 

0500 

5330 


JMP 

XNVAL 


0635 

0501 

1402 


TAD 3 

XT1 


0636 

0502 

3003 


DCA 

XT2 

/SAVE THIS START 

0637 

0503 

2002 


xsz 

XTl 


0640 

0504 

1441 


TAD I 

XPOINT 

/LAST ENTRY? 

0641 

0505 

7650 


SNA CLA 



0642 

0506 

9333 


JMP 

XVOK 

/YES.VOL OK 

0643 

0507 

1368 


TAD 

XM0V7 

/COMPARE VOL LEN 

0644 

0510 

7140 


CMA CLL 



0645 

0511 

1003 


TAD 

XT2 

/TO PILE START 

0646 

0512 

1402 


TAD I 

XT! 

/PLUS PILE LEN 

0647 

0513 

7630 


SZL CLA 


/OK? 

0650 

0514 

5330 


JMP 

XNVAL 

/NO 

0651 

0515 

7801 


ONE 



0662 

0316 

1002 


TAD 

XTl 

/NEXT ENTRY 

0653 

0517 

3041 


DCA 

XPOINT 


0654 

0320 

2044 


ISZ 

XECNT 


0655 

0521 

9267 


JMP 

XVLOOP 


0656 

0522 

7240 

XVNWA, 

MONE 



0657 

0523 

3051 


OCA 

XNWASW 

/SET NO.WORK.AREA 

0660 

0524 

5620 


JMP I 

XVALID 


0661 



/ 




0662 



/ 

IT LOOKS 

l PUNNY, 

BUT MAY BE OK 

0663 



/ 




0564 

0525 

1441 

XMAYBEp 

TAD I 

XPOINT 


0665 

0526 

7600 


SNA CLA 



0666 

0527 

5322 


JMP 

XVNWA 

/ALL IS PINE 

0667 



/ 




0670 



/ 

INDEX IS 

i INVALID 

0671 



/ 




0672 

0530 

7200 

xnval. 

CLA 



0673 

0331 

5732 


JMP I 

XNO 


0674 

0532 

0000 

XNO# 

0 


/ERROR ADOR 

0675 



/ 




0676 

0533 

4520 

XVQK, 

JMS I 

MAKWA 

/CLEAN UP WA 

0677 

0334 

5620 


JMP I 

XVALID 


0700 



/ 




0701 




EJECT 





0708 



0703 



0704 



0706 

0535 

4516 

0706 

0536 

7410 

0707 

0537 

5)10 

0710 

0540 

2051 

0711 

0541 

4533 

0712 

0542 

5106 

0713 

0543 

7000 

0714 

0544 

1061 

0716 

0545 

1003 

0716 

0546 

3010 

0717 

0547 

1061 

0720 

0550 

1047 

0721 

0551 

3011 

0722 

0552 

1410 

0723 

0553 

6201 

0724 

0564 

3411 

0725 

0555 

6211 

0726 

0556 

1410 

0727 

0657 

6201 

0730 

0560 

3411 

0731 

0561 

5514 

0732 



0733 



0734 



0735 

0562 

0000 

0736 

0563 

7327 

0737 

0664 

7040 

0740 

0565 

3002 

0741 

0566 

1410 

0742 

0567 

3411 

0743 

0570 

2002 

0744 

0571 

5366 

0740 

0572 

5762 

0746 



0747 




/ 


/ 

REQUEST 

TO GET 

✓ 

XSGWA, 

JMS I 
SKP 

FIND 


JMP 

XERR2 


1SZ 

XNWASW 


JMS I 

full 


JMP 

NOP 

XERR4 


TAO 

P9 


TAD 

XT2 


DCA 

AX0 


TAD 

PS 


TAD 

XLIST 


DCA 

AX 1 


TAD I 

AX0 


COP 

XLF 


DCA I 

AX 1 


CDF 

XBF 


TAD I 

AX0 


CDF 

XLF 


DCA 1 

AX 1 


JMP I 

8RET 

/ 

/ 

MOVE 7 

WORDS 

/ 

XHQV7 9 

0 

SIX 

CM A 



OCA 

XT1 

XM71P, 

TAD I 

AX0 


DCA I 

AX 1 


ISZ 

XT 1 


JMP 

XM7LP 


JMP I 

XM0V7 



EJECT 



WORKING AREA 

/DOES NAME EXIST? 
/NO, GOOD 
/OOPS 

/IS WA EMPTY? 

/IS THERE A WA? 
/NO, BOMB 
/CLOSE BUT OK 

/POINT TO WA START 


/GET WA START 


/GET WA LENGTH 


/ALL DONE 


/»7 IN AC 

/GET 

/PUT 


/DONE 



0750 



/ 




0751 




PAGE 



0758 



/ 




0753 



/ 

DELETE 

THE INDEX ENTRY INDICATED BY XPOINT 

0754 



/ 




0755 

0600 

0000 

XDELET, 

0 



0756 

0601 

7240 


MONE 



0757 

0602 

3040 


DCA 

MODSW 


0750 

0603 

4532 


JMS 1 

L3TCHK 

/IS THIS LAST ENTRY? 

0761 

0604 

5822 


JMP 

xdlast 

/YES - SPECIAL HANDLING 

0768 

0605 

4523 


JMS I 

NXEB 

/IS NEXT ZERO OR BLANK? 

0763 

0606 

6222 


JMP 

XDLAST 

/ZERO 

0764 

0607 

8233 


JMP 

XDPCHK 

/BLANK 

0765 

0610 

1043 


TAO 

XNXEP 


0766 

0611 

4527 


JMS 1 

ALCHK 

/IS NEXT AN ALIAS? 

0767 

0618 

5837 


JMP 

XDALIS 

/YES 

0770 

0613 

4337 


JMS 

XPBLNK 

/NO • BLANK THIS 

0771 

0614 

4522 


JMS 1 

PREB 

/IS PRECEDING ENTRY BLANK? 

0778 

0615 

5242 


JMP 

XDSQP 

/YE9 * SQUEEZE 

0773 

0616 

1041 


TAD 

XPOINT 


0774 

0617 

43®7 


JMS I 

ALCHK 

/IS THIS AN ALIAS? 

0775 

0620 

9237 


JMP 

XDALIS 

/YES - SQUEEZE 

0776 

0621 

ea®0 


JMP I 

XDELET 


0777 



/ 




1000 



/ 

TMIS IS 

LAST ENTRY 

1001 



/ 




1008 

0622 

4528 

XDLA8T, 

JMS 1 

PREB 

/IS PRECEDING ENTRY BLANK? 

1003 

0623 

7410 


9KP 


/YES ® ZERO BOTH 

1004 

0624 

5233 


JMP 

XDLCLR 

/NO • ZERO THIS ONLY 

1005 

0625 

4828 


JMS 

XDZERQ 

/ZERO NAME AND AUX 

1006 

0626 

3410 


DCA I 

AX0 

/ZERO START 

1007 

0687 

3410 


OCA 1 

AX0 

/and len 

1010 

0630 

1064 


TAD 

MI0 


1011 

0631 

1041 


TAD 

XPOINT 


1012 

0632 

3041 


DCA 

XPOINT 


1013 

0633 

4620 

XDLCIR, 

JMS 1 

MAKWA 

/BUILD A WA 

1014 

0634 

5600 


JMP X 

XDELET 


1015 



/ 




1016 



/ 

NEXT ENTRY IS BLANK 

1017 



/ 




1080 

0635 

4522 

XDPCHK, 

JMS I 

PREB 

/CHECK PRECEDING FOR BLANK 

1021 

0636 

8244 


JMP 

XDSGZ 

/YES • MOVE TO PRECEDING 

1022 

0637 

1041 

xdalxs, 

TAD 

XPOINT 

/NO • MOVE TO THIS 

1023 

0640 

3042 


DCA 

XPREP 


1024 

0641 

6244 


JMP 

XDSGZ 

/BEGIN SQUEEZE 

1025 



/ 




1026 



/ 

PRECEDING ENTRY 

IS BLANK, SQUEEZE IT 

1027 



/ 




1030 

0648 

1041 

XD3QP# 

TAD 

XPOINT 

/MOVE CURRENT 

1031 

0643 

3043 


DCA 

XNXEP 

/DOWN ONE 

1032 



/ 




1033 




EJECT 





U<54 



/ 




1035 



/ 

COME HIRE TO DO 

ANY SQUEEZE 

U3a 



/ 

XNXEP IS "FROM" 

AODR, XPREP IS "TO" ADO 

i»37 



/ 




1040 

0644 

7240 

XD 8 QZ, 

MONE 



1041 

0643 

1043 


TAD 

XNXEP 


1042 

0646 

3010 


OCA 

AX® 

/SETUP AUTO "PROM" 

1043 

0647 

7240 


MONE 



1044 

0630 

1042 


TAD 

X PREP 


1045 

0851 

3011 


OCA 

AX t 

/SETUP *UTO "TO" 

1046 

0832 

1134 


TAD 

XSUF 

/x start 

1047 

0683 

7041 


CIA 


/FROM 

1090 

0634 

1043 


TAD 

XNXEP 

/MOVE START ADDR 

1081 

0653 

7110 


CLL RAR 


/IS MOVE LEN 

1052 

0636 

7112 


CLL RTR 


/DIVIDED BY B 

1053 

0687 

7041 


CIA 


/PROM 

1054 

0660 

1045 


TAD 

XLEN 

/TO^AL 

1055 

0661 

7041 


CIA 



1096 

0662 

3044 


DC A 

XECNT 

/IS REMAINING 

ld57 

0603 

1410 

XD8QLP1 

TAO I 

AX® 

/GET FIRST WORD 

1480 

0664 

7460 


SNA 


/IS THIS LA8T ENTRY? 


0665 

5272 


JMP 

XOSQND 

/YES 

*52 

0606 

3411 


DC A I 

AX 1 

/NO - MOVE IT 

l 13 

0867 

4724 


JMS I 

PMOV7 

/AND SEVEN MORE 

1 64 

0670 

2044 


IS! 

XECNT 

/CHECK ENTRY COUNTER 

1 *65 

0671 

5263 


JMP 

X03QLP 

/CONTINUE SQUEEZE 

l 466 

0872 

7201 

XD8QND1 

ONE 



i 467 

0673 

1011 


TAD 

AX 1 

/NEXT TO LOC 

1 4/0 

0674 

3041 


OCA 

XPOINT 

/IS WA 

1 71 

0673 

4520 


JM8 I 

MAKWA 


1 78 

0076 

1 442 


TAD I 

XPREP 

/IS THIS BLANK? 

! /3 

0677 

10B5 


TAD 

MBLNKS 


1074 

0700 

7640 


92A CLA 



1075 

0701 

5600 


JMP I 

XDELET 

/NO, ALL DONE 

1076 



/ 




1077 



/ 

HE HAVE 

SQUEEZED 

> BLANK ENTRIES 

1100 



/ 

NOW WE 

MUST SET 

START AND LENQTH 

1101 



/ 




1102 

0702 

7346 


MTHRElE 



1103 

0703 

1042 


TAO 

XPREP 


1104 

0704 

3010 


DCA 

AX® 

/ADDR OP PREVIOUS START 

1105 

0703 

7327 


SIX 



1 06 

0700 

1042 


TAD 

XPREP 


1107 

0707 

3002 


OCA 

XTl 

/ADDR OP THIS START 

HU 

0710 

1410 


TAD I 

AX® 

/PREVIOUS START 

i;n 

0711 

1410 


TAD I 

AX® 

/PLUS LEN 

1112 

0712 

3402 


DCA I 

XTl 

/IS THIS START 

l 13 

0713 

1052 


TAD 

P7 


1114 

0714 

1002 


TAD 

XT! 

/POINT TO NEXT START 

1115 

0715 

3010 


DCA 

AX® 


1116 

0718 

1402 


TAD I 

XTl 

/THIS START 

1117 

0717 

7041 


CIA 



1120 

0720 

1410 


TAO I 

AX0 

/PROM NEXT 

1121 

0721 

2002 


I8Z 

XTl 


1122 

0722 

3402 


DCA I 

XTl 

/18 THIS LEN 

1123 

0723 

5600 


JMP I 

XDELET 


1124 



/ 




1125 

0724 

0562 

PM0V7, 

XMOV7 



1126 



/ 




1127 




EJECT 





1130 



/ 




1131 



/ 

ZERO THE NAME AND AUX AT XPOINT 

1130 



/ 




1133 

0729 

0000 

XDZERO, 

9 



1134 

0726 

7240 


HONE 



1135 

0727 

1041 


TAD 

XPOXNT 


1135 

0730 

3010 


DCA 

AX0 


1137 

0731 

1077 


TAD 

MS 


114(9 

0732 

3002 


DCA 

XT! 


1141 

0733 

3410 


DCA I 

AX0 

/CLEAR * WORD 

1140 

0734 

2002 


I8Z 

XT1 


1143 

0739 

5333 


JMP 

**2 


1144 

0736 

8725 


JMP I 

XDZERO 


1145 



/ 




1146 



/ 

BLANK 

THE ENTRY 

AT XPOXNT 

1147 



/ 




1150 

0737 

0000 

XPBINK, 

0 



1151 

0740 

7240 


HONE 



1152 

0741 

3040 


DCA 

MOQSH 

/SET MODIFIED SW 

1153 

0742 

7240 


HONE 



1154 

0743 

1041 


TAD 

XPOXNT 


1155 

0744 

3R10 


OCA 

AX0 

/SETUP AUTO INDEX 

1156 

0749 

1076 


TAD 

M5 


1157 

0746 

3002 


OCA 

XT1 


1160 

0747 

1064 


TAD 

hblnks 

/HALFWORD BLANKS 

1161 

0790 

3410 


OCA X 

AX0 


1162 

0791 

2002 


m 

XT1 

/CHECK COUNT 

1163 

0792 

8347 


JNP 

,«a 

/LOOP 

1164 

0793 

3410 


OCA 1 

AX0 

/clear aux 

1169 

0764 

5737 


JMP I 

XPBLNK 


1166 


/ 




1167 



/ 




1170 




PAGE 



1171 



/ 




1172 



/ 




1173 



/ 

CHECK 

ENTRY INDICATED BY AC FOR ALIAS 

1174 



/ 




1176 

1000 

0000 

XAICHK, 

0 




\m 

??Si 


OCA 

HTHREE 

XTl 


1200 

1003 

1002 


TAD 

XT! 


1201 

1004 

3012 


OCA 

AX2 

/preceding start • 1 

1202 

1009 

7327 


SXX 



1203 

1006 

1002 


TAO 

XT! 


1204 

1007 

3002 


DO A 

XTl 

/THIS START 

1205 

1010 

1402 


TAO X 

XTl 


1206 

1011 

7041 


CIA 



1207 

1012 

1412 


TAO X 

AX2 

/COMPARE THIS START 

1219 

1013 

1412 


TAO X 

AX2 

/TO PRECEDING END 

1211 

1014 

7750 


SPA SNA eu 

/SKIP IF OVERLAP 

1212 

1015 

2200 


I8Z 

XAUCHK 

/NOT ALIAS 

1213 

1016 

8600 


JMP I 

XALCHK 


1214 



/ 




1215 




EJECT 





1216 



/ 




1217 



/ 

TEST PRECEDING 

ENTRY FOR BLANK 

1220 



/ 

SKIP IF 

NOT 


1221 



/ 




1222 

1017 

0000 

XPREB, 

0 



1223 

1020 

1064 


TAD 

M10 


1224 

1021 

1041 


TAD 

XPOINT 


1225 

1022 

3042 


DCA 

XPREP 

/PRECEDING ENTRY POINTER 

1226 

1023 

6211 


CDF 

XBF 

/BUFFER FIELD 

1227 

1024 

1442 


TAD I 

XPREP 


1230 

1025 

1085 


TAD 

MBLNKS 

/COMPARE BLANKS 

1231 

1026 

7640 


8ZA CLA 



1232 

1027 

2217 


I8Z 

XPREB 

/NOT « SKIP RETURN 

1233 

1030 

8617 


JMP I 

XPREB 

/RETURN 

1234 



/ 




1238 



/ 

TEST NEXT ENTRY 

FOR ZERO OR BLANK 

1236 



/ 

SKIP 1 

IF BLANK 

, 2 IF NEITHER 

1237 



/ 




1240 

1031 

0000 

XNXEB, 

0 



1241 

1032 

1063 


TAD 

P10 


1242 

1033 

1041 


TAD 

XPOINT 


1243 

1034 

3043 


DCA 

XNXEP 

/NEXT ENTRY POINTER 

1244 

1035 

6211 


CDF 

XBF 

/BUFFER FIELD 

1245 

1036 

1443 


TAD I 

XNXEP 

/NEXT ENTRY 

1246 

1037 

7450 


SNA 


/IS IT ZERO? 

1247 

1040 

5631 


JMP I 

XNXEB 

/YES ■ FIR8T RETURN 

1250 

1041 

2231 


ISZ 

XNXEB 


1291 

1042 

1055 


TAD 

MBLNKS 

/COMPARE BLANKS 

1252 

1043 

7640 


SZA CLA 


/EOUAL? 

1253 

1044 

2231 


ISZ 

XNXEB 

/NO » TAKE THIRD 

1254 

1045 

5631 


JMP I 

XNXEB 

/RETURN 

1255 



/ 




1256 



/ 

SKIP IF 

XPOINT 

IS NOT LAST ENTRY 

1257 



/ 




1260 

1046 

0000 

XLCHK, 

0 



1251 

1047 

7240 


NONE 



1262 

1050 

1045 


TAD 

XLEN 


1863 

1051 

7104 


CLL RAL 



1264 

1082 

7006 


RTL 



1265 

1053 

1134 


TAD 

XBUF 

/ADDR OF LAST ENTRY 

1266 

1064 

7141 


CIA CLL. 



1267 

1053 

1041 


TAD 

XPOINT 

/COMPARE 

1270 

1056 

7620 


8NL CLA 


/SKIP IF XPOINT ST OR EG 

1271 

1057 

2246 


ISZ 

XLCHK 

/ELSE TAKE SKIP RETURN 

1272 

1060 

5646 


JMP I 

XLCHK 


1273 



/ 




1274 




EJECT 




( 


1878 



/ 



1876 



/ 

MAKE A 

SLOT FOR 

IMF 



/ 



1W 

1061 

0000 

XPANO, 

0 


uii 

1068 

4633 


JM8 I 

FUtV 

1308 

1063 

6100 


JNR 

XEWR4 

1303 

1064 

7000 


NOR 


1304 

1065 

10*1 


TAO 

XROINT 

1306 

1066 

704! 


CIA 


1306 

1067 

1603 


TAO 

XT** 

130F 

1070 

7110 


CU RAR 


1310 

1071 

7112 


CU RTR 


1311 

1078 

7040 


CMA 


1318 

1073 

3004 


DC* 

TMF3 

1313 

1074 

1068 

XRMVLRi 

T*0 

R7- 

1314 

1078 

1003 


TAO 

XT2 

1316 

1076 

3611 


DC* 

A*t- 

1316 

1077 

1003 


TAO 

XT8 

1317 

1100 

3010 


OCA 

AXff 

1380 

110*1 

1403 


T AO I 

XT 8 

1381 

110*8 

3411 


OCA I 

A XI 

1388 

1103 

4710 


JM9 I 

MOV 7 

1383 

1104 

1064 


TAO 

M10 

1384 

1100 

1003' 


TAO 

XT2- 

1386 

iisr 

3003 


OCA 7 

XT8 

1386 

1107 

2094' 


162 

TMR3 

1387 

1118 

8074 


JM0 

JfRMVUR 

1330 

1111 

6661 


jmf i 

XRANO 

1331 



/* 



1338 

1112 

0668 

MOV7, 

rmoTf 


1333 



0 



1334 




EJECT 



{ 


AM ENTRY AFTER XROW 

/IS INDEX FtlLCt 
/YES 

/RU0W LENGTH 

/BY ENTRIES^ 

/WS, IWCiUDINS ENDS 

/AO DR OWN SCOT 

/SfT ''FROM" WINTER 
/MOVE FIRST WORD 

/MOVE SEVEN more 

/RRECEOINS ENTRY 

/SLOT IS AT XROINT 



1338 



/ 




1336 



/ 

FUNCTION IS LOOKUP 

1337 



/ 




1340 

1113 

4916 

XSLOOK, 

JM3 I 

FIND 


1341 

1114 

5111 


JMP 

XERR1 

/NAME DOESNT EXIST 

1343 

1115 

7346 


MTMREE 



1343 

1116 

3002 


OCA 

XT 1 


1344 

1117 

6211 

XLLP, 

CDF 

XBF 


1346 

1120 

1410 


TAD I 

AX0 

/WORD FROM ENTRY 

1346 

1121 

6801 


CDF 

XLF 


1347 

1122 

3411 


DC A I 

AX 1 

/INTO LIST 

1330 

1123 

2002 


ISZ 

XT1 


1351 

1124 

5317 


JMP 

XLLP 


1332 

1125 

5814 


JMP J 

SRET 


1363 



/ 




1354 



/ 

FUNCTION IS DELETE 

1355 



/ 




1356 

1126 

4916 

XISOELT, 

JMS I 

FIND 


1387 

1127 

5514 


JMP I 

SRET 

/NO SUCH FILE 

1360 

1130 

4825 


JMS I 

DELET 

/DELETE IT 

1361 

1131 

5514 


JMP I 

SRET 

/ALL DONE 

1362 



/ 




1363 



/ 

FUNCTION 13 CREATE 

1364 



/ 




1365 

1132 

4816 

XSCRfcT, 

JMS I 

FIND 

/IS IT ALREADY HERE? 

1366 

1133 

6335 


JMP 

xmake 

/NO«GQ 

1367 

1134 

5110 


JMP 

XERR2 

/YES-ERROR 

1370 



/ 




1371 



/ 

MAKE A 

NEW ENTRY 

1378 



/ 




1373 

1139 

7327 

XMAKE, 

SIX 



1374 

1136 

1047 


TAD 

XLI3T 

/LIST ADDR 

1375 

1137 

3010 


OCA 

AX0 


1376 

1140 

0801 


CDF 

XLF 

/LIST FIELD 

1377 

1141 

1410 


TAD I 

AX0 

/GET LEN REQUEST 

1400 

1142 

7041 


CIA 



1401 

1143 

3050 


OCA 

xplen 


1408 

1144 

7846 


MTHREE 



1403 

1145 

1045 


TAD 

XLEN 

/INDEX LEN * 3 

14(94) 

1146 

7041 


CIA 



1406 

1147 

3044 


DCA 

XECNT 

/SET SEARCH COUNT 

1406 

1190 

1069 


TAD 

P20 


1407 

1161 

1134 


TAD 

X0UF 

/START WITH 3RD INDEX ENTRY 

1410 

1192 

3041 


DCA 

XPQINT 


1411 

1153 

4231 

XH8CAN, 

JMS 

XNXEB 

/IS NEXT BLANK OR ZERO? 

1412 

1164 

8783 


JMP I 

MZERO 

/ZERO 

1413 

1165 

5764 


JMP I 

mblnk 

/BLANK 

1414 

1150 

1043 


TAD 

XNXEP 

/NEITHER-TRY NEXT 

1415 

1157 

3041 


DCA 

XPQINT 


1416 

1160 

2044 


ISZ 

XECNT 

/CHECK COUNT 

1417 

1181 

5353 


JMP 

XM8CAN 


1420 

1162 

6106 


JMP 

XERR4 

/NO SPACE FOR ENTRY 

1421 



/ 




1422 

1163 

I860 

MZERO, 

XMZERQ 



1423 

1164 

1200 

MBLNK, 

xmblnk 



1424 



/ 




1426 




EJECT 




/ 


page 

NEXT ENTRY 13 BLANK • SEE IF REQUEST FITS 


XMSLNK, TAD 
OCA 


19? 

Il» 

I AC 
TAD 
OCA 

tab i 

TAO 

SNL OLA 
JMP I 

m X 

TAO I 
CDF 
0$A X 

W 

TAO l 
TAO 
EM 
JMP I 

OCA 


XNXfR 

XFOINT 

XECNT 


XFOINT 
XT | 

«t 

XPk*# 

HfOAN 

NOQFY 

m 

as 

XIP 

XT| 

X»I*|N 

l*|T 

XIL1N 

XL* 


/NEXT ENTRY FOINTER 

/THIS CANT SKIF 
/AC*S» LXNK«0 


/9|T t,SN 

/COMPARE REQUEST 
/OOCS If FITT 
/NO • KIEF SCANNING 
/Y|* * MOVE IN INTRY 
/START 


/BUFFER FIELD 

/get free lin 
/compare REQUEST 
/EXACT FITT 
/YES 

/NO « HOLD NEW FREE LEN 
/USER L|N RQST 


ml 

m i 

m 

/TO THIS ENTRY 

JM» I 

FANO 

/MAKE SPACE FOR FREE ENTRY 

IMS 

TAO 

FAR 


1041 

TAO 

XFOINT 

/NEXT ENTRY 

5® 41 

OCA 

XFOINT 

/BECOMES CURRENT 

48ft 

79AO 

JNO X 
NTHREE 

rolnk 

/BLANK IT 

1041 

TAO 

XFOINT 

/PRECEDING START ADOR 

SR 11 

OCA 

A XI. 


1411 

TAO I 

A XI 

/START 

1411 

TAO l 

AXl 

/PLUS LEN 

34l0 

OCA I 

AX% 

/If NEXT START 

100% 

TAO 

X*VIN 


0410 

OCA I 

AXR 

/TO EMPTY ENTRY 

0814 

/ 

1101 MSCAN# 

JM.R I 

XMROAN 

SRI-T 


EJECT 



1506 



/ 





1507 



/ 

NEXT 

ENTRY IS 

ZERO 

1510 



/ 





1511 

1250 

1062 

XMZERO, 

TAD 


P7 


1512 

1281 

1134 


TAD 


XBUF 

/ADOR DEVICE LEN 

1513 

1282 

3002 


DCA 


XT 1 


1514 

1253 

7346 


MTMREE 



1515 

1254 

1043 


TAD 


XNXEP 


1616 

128S 

3010 


DCA 


AX0 


1517 

1256 

1410 


TAO 

I 

AX0 

/LAST ENTRY START 

1520 

1257 

1410 


TAO 

I 

AX0 

/PLUS LEN 

1521 

1260 

3003 


DCA 


XT2 


1522 

1261 

1003 


TAD 


XT2 


1623 

1262 

7161 


CIA 

STL 



1524 

1263 

1402 


TAO 

I 

XT 1 

/FROM DEVICE LEN 

1525 

1264 

7470 


SZL 

SNA 



1626 

1265 

8107 


JMP 


XERR3 

/NO ROOM IN WA 

1527 

1266 

1050 


TAD 


XFLEN 

/COMPARE REQUEST 

1530 

1267 

7620 


SNL 

CLA 


/IS THERE ROQMT 

1531 

12*0 

5107 


JMP 


XERR3 

/NO 1 

1532 

1271 

4521 


JMS 

I 

MCOPY 

/COPY NAME & AUX 

1533 

1272 

1023 


TAD 


XT2 

/GET START 

1534 

1273 

3411 


DCA 

I 

AX 1 

/INTO ENTRY 

1635 

1274 

6201 


CDF 


XLP 


1536 

1278 

1003 


TAD 


XT2 


1637 

1276 

3410 


OCA 

I 

AX0 

/START TO USER 

1640 

1277 

1410 

XMZFIN, 

TAD 

I 

AX0 

/HIS LEN REQUEST 

1641 

1300 

6211 


COP 


XBP 


1642 

1301 

3411 


DCA 

I 

AX 1 


1843 

1302 

1063 


TAD 


P10 


1544 

1303 

1043 


TAD 


XNXEP 


1545 

1304 

3041 


DCA 


XPOINT 


1546 

1305 

4B20 


JM8 

I 

MAKWA 

/BUILD WA 

1547 

1306 

5514 


JMP 

I 

SRET 


1550 



/ 





1551 




EJECT 




w 



1092 



1003 



10)04 



1*09 

1367 

0866 

1096 

1310 

4617 

1997 

1311 

72*1 

1968 

1312 

1*10 

1061 

1313 

3*62 

1002 

1314 

7346 

1603 

1319 

1841 

1-994 

1319 

9*10 

1906 

1317 

1410 

1906 

1330 

1410 

1907 

1321 

34*2 

1970 

1332 

1062 

1071 

1323 

1194 

1072 

1334 

3803 

1673 

1339 

1402 

1074 

1326 

7161 

1679 

1337 

14*3 

1076 

1330 

7460 

1677 

1331 

9399 

1006 

1332 

7240 

1001 

1333 

3*91 

1602 

1334 

3400 

1003 

1339 

2809 

1004 

1336 

3402 

1600 

1337 

6767 

1006 



1607 



1610 



1611 

1340 

0800 

1612 

1341 

7240 

1613 

1342 

3840 

1614 

1343 

7240 

1616 

1344 

1043 

1616 

1349 

3811 

1617 

1346 

7240 

1620 

1347 

1*47 

1621 

1360 

3*10 

1622 

1301 

1*77 

1623 

1302 

3802 

1624 

1393 

6201 

LOS 6 

1364 

1410 

LOSS 

1369 

6211 

1627 

1366 

3411 

1030 

1397 

2892 

1631 

1360 

0393 

1632 

1361 

6740 

1633 



1634 




/ 


/ 

MAKE A 

HONKING 

/ 

XMAKWAf 

0 



JMS X 
ONE 

DZERO 


TAD 

AXS 


uca 

NTHRIE 

XTI 


TAD 

XR8ZNT 


OCA 

AXS 


TAD I 

AXS 

* 

TAD X 

AXS 


DC A I 

XTI 


TAD 

R7 


TAO 

X0UF 


DC A 

XT2 


TAD 1 
CIA STL 

XT! 


TAD I 
SMI tZA 

XT2 


JHP 

NONE 

FINAL N 


DC A 

XNHASH 


OCA I 

XTI 

MWAtN, 

ISZ 

XTI 


OCA I 

XTI 


JMR I 

XNAKMA 

/ 

/ 

CORY NANI ANO . 

/ 

XHCOPY, 

0 

NONE 



OCA 

HONE 

MOOSH 


TAO 

XNXIR 


OCA 

NONE 

AX1 


TAD 

XL I ST 


OCA 

AXS 


TAO 

MS 


OCA 

XTI 

XNCRLR# 

C07 

XLR 


TAO l 

AX 6 


C07 

XBF 


OCA I 

AXl 


ISZ 

XTI 


JMR 

xmcrlr 


JMR I 

XHCOPY 

/ 


EJECT 



AREA ENTRY AT XROINT 


/CLEAR AT XROXNT 
/POINT TO START 


/LAST START 

/LAST START BU 
/PLUS LAST UEN 
/IS MA START 


/POINT TO VOi' UtN 
/NA START 
/PROM 

/VOL LENGTH 
/PO* NA LINT 
/T*S 

/SfT NO ftp 
/CLEAR HA START 
/MINT TO HA LIN 
/SET LEN 


INTO INDEX 


/SET HOOIRIEO SH 
/THIS ENTRY • ! 


/LIST -1 


/SIT COUNTER 
/LIST RI6LO 

/SURFER FIELD 

/CHECK COUNT 

/RETURN 



635 / 

636 PACE 

637 / 

640 / CALCULATE THE LENGTH OP THf INOEX 

641 / 


642 

1400 

0000 

XLNCLC » 

0 




643 

1401 

7307 


POUR 




644 

1402 

1134 


TAO 


xbup 

/INDEX START AOOR PLUS 4 

640 

1403 

3010 


OCA 


AX0 

/HOLD IN AUTO XNOEX 

646 

1404 

6211 


COP 


XBP 

/BUPPER FIELD 

647 

1400 

1410 


TAO 

I 

AX0 

/GET BLOCK LEN 

606 

1406 

7110 


CLL 

RAR 


/DIVIDED 

601 

1407 

7112 


CLL 

RTR 


/ev 10 , 

602 

1410 

3002 


OCA 


XT! 

/IS ENTRIES PER BLOCK 

603 

1411 

1410 


TAO 

I 

AX0 

/GET INDEX LEN IN BLOCKS 

604 

1412 

7041 


C X A 




650 

1413 

3003 


OCA 


XT2 


666 

1414 

3040 


OCA 


XLEN 

/CLEAR LENGTH 

687 

1416 

1002 

XLNLP, 

TAO 


XT! 

/MULTIPLY 

666 

1416 

1040 


TAO 


XLEN 

/ENTRIES PER BLOCK 

661 

1417 

3046 


OCA 


XLIN 

/BY NUMBER 

682 

1420 

2003 


182 


XT2 

/OP BLOCKS 

663 

1431 

0210 


JMP 


XLNLP 


664 

1422 

6600 


JMP 

I 

XLNCLC 



660 / 
666 


EJECT 


iseY 

ig. 

1673 

1674 
1678 

1676 

1677 
1768 
1701 
1768 
1763 
1704 

1766 

1706 

1767 
1716 
1711 
1718 

1713 

1714 
1716 

1716 

1717 

1780 

1781 
1788 

1783 

1784 

1785 

1786 

1787 

1730 

1731 
1798 

1733 

1734 
1738 
1796 
1737 
1740 

M 

17414 

m 

1707 

1780 

1781 

1768 

1783 

1784 


/ 

/ 

/ 


FUNCTION 13 ifffcNTIFY 

ASSIGN AN INDEX ENTRY TO A FIXED SPACE IN THE HA 


403 

4018 

/ 

X5IDEN, 

4#1 I 

FIND 

/DOES THE NAME EXISTS 

404 

7 410 


8K> 


/NO 

485 

6110 


jNP 

xerR2 

/YtS • CANT DO IT 

406 

1044 


TAO 

XECNT 


487 

7050 


SNA eu 


/IS INDEX FtILLT 

430 

810 * 


jHP 

xERR4 

/Yrs 

431 

7387 


85 * 

XVI3T 


438 

1047 


f*0 

/point to start 

43 s 
434 

3008 

7346 


00* 

HfkfctE 

XTl 


438 

1041 


TAD 

4P&INT 


436 

3010 


DC A 

AXfl 

/LAST ENTRY 

437 

1410 


TAD I 

A 80 


440 

1410 


TAD I 

0X0 

/FIRST AVAILABLE BLOCK 

441 

3003 


DC A 

XT8 

*> 

4#8 

0801 


CD* 

%P 

/CDHPAR1 START OF NA 

443 

1003 


TAO 

XT8 

444 

7141 


Cl* CLL 



446 

1400 


TAD I 

XTl 

/TO START OF FILE 

446 

5$ 


8NL 

*tWR7 

/IS PILE IN NAT 

447 


J'MP 

/NO • TROUBLE 

486 

0811 


CDF 

XBF 


461 

74*0 


80 A 


/BLANK SPACE BEFORE FILET 

488 

6808 


m 

XI NOD 

/NO 

453 

8044 


107 

XECNT 

/ROOM FOR ANOTHER 6NTRYT 

464 

7410 


SAP 


/YES 

468 

8ll| 


JNP 

XEtfta 

/NO 

456 

5680 


DC A 

*pLEN 

/NOLO BLANK LEN 

457 

■ 410* 


408 I 

PfWWt 

/CREATE BLANK entry 

460 

1003 


TAD 

xti 


461 

3410 


DCA I 

AX0 

/START OF BLANK 

408 

10*1 


TAO 

xPkEN 

/len OF Hank 

403 

3410 


DCA I 

AXi 


464 

468 

1003 

1041 

XINOB, 

n? 

100 

kiliKr 


406 

*94? 


DCA 

XNiEP 

/COPY • To AOOR 

467 

4081 


foi i 

NCOPY 

/COPT FILE name, aux 

470 

0801 


cop 

71*7 

4?1 

1410 


T*P 7 

Axe 

/FILE 0TART 

478 

6011 


C0F 

000 


473 

3411 


m 1 

4xi 


474 

8801 


cpt 

HP 

/FinISh Like hake 

475 

478 

807* 

1877 

S 

?n0||n 

.41 



9 

AtfHIFH 

1800-, 




NANNING 

/ 

/ 

X8A08 

/ADJUST 

ORG IN X8B 




CHAIN 

"X8B08" 





0000 

♦ 20 



0001 

/ 

X8B* CONTAINS 

DX AND EJS 

0002 

0003 

/ 

RHODE 


0004 


• 1600 


0005 


AUX*0 

n FOR DX DISPLAY OF AUX 

0006 


XUNESafi 

/NUMBER OF ENTRIES TO OISPIAY 

0007 


EJECT 




note 



/ 




0011 



/ 

DISPLAY 

INDEX, 

KITH OPTIONS 

0010 



/ 

INDEX IS IN CORE 

0013 



/ 




0014 

1600 

3092 

OX, 

OCA 

OXFRST 

/CLEAR FIRST-ENTRY POINTER 

0019 

1601 

6211 


CDF 

XSF 


0016 



/ 




0017 



/ 

SIT ENTRY NO OF 

LAST ENTRY 

0020 



/ 




0021 

1602 

4910 

dxwscn, 

JH8 1 

VALID 

/IS INOEX VAUDT 

0022 

1603 

0267 


XSRHF 


/NO • RETURN 

0023 

1604 

1001 


TAD 

XNWA8N 

/IS THERE A WAT 

0024 

1605 

7710 


SPA CIA 



0026 

1606 

1063 


TAD 

P10 

/NO 

0026 

1607 

1134 


TAD 

XBUF 

/VES-CALCULATE 

0027 

1610 

7041 


CXA 


/HA ENTRY NO 

0030 

1611 

1041 


TAP 

XPOINT 


0031 

1612 

7112 


CLL 2TR 



0032 

1613 

7010 


RAR 



0033 

1614 

3063 


DC* 

DXLAST 

/LAST OX9PLAYABLE ENTRY 

0034 



/ 




0030 



/ 

check STARTING 

ENTRY NO 

0036 



/ 




0037 

1619 

1062 


TAO 

OXFRST 


0040 

1616 

1336 


TAD 

PBXL 


0041 

1617 

7041 


CXA 



0042 

1626) 

1003 


TAO 

DXLAST 

/WILL IT PILL SCREEN? 

0043 

1621 

7700 


SMA CIA 


/SKIP IF NOT 

0044 

1622 

5227 


JHP 

DXFCHK 


0040 

1623 

7201 


ONE 



0046 

1624 

1003 


TAD 

DXLAST 


0047 

1626 

1336 


TAD 

MDXL 

/BACK UP FROH LAST 

0090 

1626 

3002 


OCA 

OXFRST 

/SET FIRST 

0001 

1627 

1092 

DXFCHK , 

TAO 

OXFRST 

/CHECK FIRST 

0092 

U30 

7716 


SPA Ci„A 


/NIG IS ILLEGAL 

0003 

1631 

3002 


OCA 

OXFRST 

/IF SO, FORCE 0 

0054 



/ 




0095 




EJECT 





0066 



/ 




00S7 



/ 




0060 



/ 




0061 



/ 

INSERT 

SPECIAL 

ENTRY DATA 

0060 



/ 




0063 

1632 

1331 


TAD 

PIMFLS 


0064 

1633 

3011 


OCA 

AX 1 

/BUFFER AODP 

0060 

1634 

1336 


TAO 

MOXl 

/LINES COUNT 

0066 

1635 

3004 


OCA 

TMP3 

/ENTRY COUNTER 

0067 

1636 

1052 


TAO 

OXFRST 


0070 

1637 

3005 


OCA 

TMP4 

/NEXT ENTRY NO 

0071 



/ 




0072 

1640 

1005 


TAO 

TMP4 


0073 

1641 

7640 


SZA CLA 


/ID ENTRY? 

0074 

1642 

5270 


JMP 

OXFMON 

/NO-HOW ABOUT MONITOR? 

0076 

1643 

4356 


JMS 

INSERT 

/YE8 • BUILD FIRST UNI 

0076 

1644 

7776 


-2 



0077 

1645 

3247 


IHVID-i 



0100 

J 646 

4337 


JMS 

MVX 

/GET NAME 

0101 

1647 

7773 


-5 



0102 

1650 

3777 


XBUFFR- 

1 

/FROM INDEX 

0103 




ASMIFZ 

AUX 


0104 




ASMSKP 

6 


0105 




TAD 

TA0NUL 


0106 




OCA I 

AX 1 

/TAB 

0107 




CDF 

X8F 


0110 




TAD I 

AX0 

/BLOCK LEN 

0111 




JUS I 

PCVNUM 


0112 




ASMSKP 

1 


0113 

16»1 

2010 


ISZ 

AX0 


0114 



/ 




0115 



/ 

INSERT 

NUMERIC 

ENTRIES 

0116 



/ 




0117 

1652 

1056 

0XFM2, 

TAD 

TABNUL 


0120 

1653 

3411 


OCA X 

AX 1 


0121 

1654 

6211 


CDF 

X0F 


0122 

1655 

1410 


TAO I 

AX0 

/INDEX LEN 

0123 

1656 

4730 


JMS I 

PCVNUM 


0124 

1657 

1056 


TAD 

TABNUL 


0125 

1660 

3411 


OCA I 

AX 1 


0126 

1661 

6211 


COP 

XBF 


0127 

1662 

1410 


TAO I 

AX0 

/VOLUME LENGTH 

0130 

1663 

4730 


JMS I 

PCVNUM 


0131 

1664 

1067 


TAD 

tcrlf 


0132 

1665 

3411 


OCA I 

AX t 

/NEXT LINE 

0133 

1666 

2004 


ISZ 

TMP3 


0134 

1667 

2005 


ISZ 

TMP4 

/BUMP ENTRY NOS 


0130 / 

0136 


EJECT 



INSERT MONITOR ENTRY IE APPROPRIATE 


0137 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0150 

0151 

0152 

0153 

0154 

0156 

0156 

0137 

0160 

0151 

0162 

0163 

0164 

0165 

0166 

0167 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0200 

0201 

0202 

0203 

0204 

0205 

0206 

0207 

0210 

0211 

0212 

0213 

0214 

0215 

0216 

0217 

0220 

0221 

0222 

0223 

0224 

0225 

0226 

0227 

0230 

0231 

0232 

0233 


/ 

7 


/ 


1670 

7240 

DXFMONf MONE 




1671 

1005 

TAO 

TMP4 

/MON ENTRY? 


1672 

7640 

SZA CCA 




1673 

5309 

JMP 

OXFJCC 



1674 

4317 

JMS 

DXSYST 

/IS THERE A 

SYSTEM? 

1673 

4356 

JMS 

INSERT 





ASMIFN 

AUX 





• 6 

A3MIFZ 

AUX 



1676 

7774 

•4 




1677 

3251 

IMMON-1 






ASMIFN 

AUX 





ASM8KP 

2 



1700 

1066 

TAD 

TASNUC 



1701 

3411 

OCA I 

AX 1 



1702 

1332 

TAO 

PMONST 



1703 

3010 

DXFJ2, OCA 

AX0 



1704 

5252 

JMP 

OXFM2 





y 

/ INSERT 

JOB CONTROC ENTRY 




/ IF APPROPRIATE 

i 



1705 

7344 

DXFJCC* MTNO 




1706 

1006 

TAO 

THP4 



1707 

7640 

SZA CLA 




1710 

5787 

JMP I 

POXFCP 

/SO TO FICC 

COOP 

1711 

4317 

JMS 

DXSYST 

/TEST FOR SYSTEM 

1712 

4356 

JMS 

INSERT 





ASMIFN 

AUX 





*7 






ASMIFZ 

AUX 



1713 

7772 

•6 




1714 

3256 

imjcc-i 




1715 

1333 

TAO 

PJCL8T 



1716 

5303 

JMP 

0XFJ2 





y 

/ DO NOT 

DISPCAY 

ENTRIES 1 AND 

2 



7 IF THERE IS NO 

SYSTEM 


1717 

0000 

f 

DXSYST > 0 




1720 

6211 

COF 

X8F 



1721 

1734 

TAO I 

PSYST 

/JCC START 


1722 

7640 

SZA CCA 


/IS THERE A 

SYSTEM? 

1723 

5717 

JMP I 

DXSYST 

/YES 


1724 

7325 

THREE 


/NO 


1725 

3005 

OCA 

TMP4 

/GO TO 1ST FICE ENTRY 

1726 

5727 

JMP I 

POXFCP 



1727 

2000 

PDXPCP» OXPCP 




1730 

2200 

PCVNIJMf CVNUM 




1731 

3457 

PIMFCS, IMFXCS- 

1 



1732 

4015 

PMONST, XBUFFRM5 



1733 

4026 

PJCCSTf XBUFFR+25 



1734 

4026 

PSYSTi X8UFPR*26 



1735 

0006 

POXC. XCINES 




1736 

7772 

MDXC t -XCINES 





/ 

EJECT 



0230 



/ 

0236 



/ 

0236 



/ 

0237 

1737 

0000 

MVX * 

0240 

1740 

6211 


0241 

1741 

1737 


0242 

1742 

3002 


0243 

1743 

2337 


0244 

1744 

1737 


0246 

1748 

3010 


0246 

1746 

2337 


0247 

1747 

6211 

MVIP, 

0250 

1750 

1410 


0251 

1751 

6211 


0252 

1752 

3411 


0253 

1753 

2002 


0254 

1754 

5347 


0255 

1755 

5737 


0256 



/ 

0257 



/ 

0260 



/ 

0261 

1756 

0000 

INSERT 

0262 

1757 

6211 


0263 

1760 

1756 


0264 

1761 

3002 


0266 

1762 

2356 


0266 

1763 

1766 


0267 

1764 

3012 


0270 

1765 

2356 


0271 

1766 

1412 


0272 

1767 

3411 


0273 

1770 

2002 


0274 

1771 

5366 


0276 

1772 

5756 


0276 



/ 

0277 





MOVE FROM INDEX TO THJ8 FIELD 
0 • 


COF 


XSF 


T 40 

I 

MVX 

/GET WORD COUNT 

DCA 


TMPI 


I8Z 


MVX 


TAD 

X 

MVX 

/FROM ADDR-1 

DCA 


AX0 


I8Z 


MVX 


CDF 


XBF 


TAD 

I 

AX0 

/GET WORD 

COF 


XSF 


OCA 

I 

AX 1 

/STORE IT 

ISZ 


TMPI 


JMP 


MVLP 

/LOOP 

JMR 

I 

MVX 

/RETURN 

MOVE 1 

FROM THIS 

FIELD TO DISPLAY 

0 




COF 


XSF 


TAD 

I 

INSERT 

/COUNT 

DCA 


TMPi 


ISZ 


INSERT 


TAO 

I 

INSERT 

/FROMM 

OCA 


AX2 


ISZ 


INSERT 


TAD 

I 

AX2 


DCA 

I 

AX 1 


ISZ 


TMPi 


JMP 


,•3 


JMP 

I 

INSERT 



EJECT 





/. 

0300 



/ 

J. 

0301 




♦ * * \ 

0300 



/ 


0303 



/ 

r H 

A* ‘.^'V ^ 

0304 



/ 


0305 

2000 

1005 

DXPLP, 


0306 

2001 

4763 



0307 

2002 

,1056 



0310 

2003 

3411 



0311 

2004 

1005 



0312 

2005 

7106 



0313 

2006 

7004 



0314 

2007 

1134 



0315 

2010 

3225 



0316 



/ 

t 

0317 



/ 


0320 



/ 

* 

0321 

2011 

6211 



0322 

2012 

1625 



0323 

2013 

*450 



0324 

2014 

6350 



0325 

2015 

1056 



0326 

2016 

7660 



0327 

2017 

5344 



0330 



/ 


0331 



/ 

j 

0332 



/ 


0333 

2020 

7240 



0334 

2021 

1225 


* + 

0335 

2022 

3225 


i!.. 

0336 

2023 

4761 


( 

0337 

2024 

7773 



0340 

2023 

0000 

OXFENT, 


0341 



/ 


0340 





PACE 

PILL IN THE FILE PORTION OF THE DISPLAY 


TAO 

TMP4 

/GET ENTRY NO 

JMS I 

FCVNMB 

/DISPLAY IT 

TAD 

TABNUl 


OCA I 

AX 1 


TAD 

TMP4 


CLl RTL 



HAL 



TAD 

PXSFR 

/ADDRESS ENTRY 

OCA 

DXFENT 


CHECK FOR HA OR 

FREE ENTRY 

CDF 

XBF 

1 

TAD I 

OXFENT 


SNA 


/IS IT WAT 

JHP 

DXHK 

/YUP 

TAD 

MBUNKS 


SNA CLA 


/IS IT FREET 

JMP 

OXER 

/YUP 

BORINGLt 

' NORMAL 


HONE 



TAD 

OXFENT 


OCA 

OXFENT 


JMS 1 

PMVX 

/MOVE FILE NAME 

• 5 



0 


/FROM 

EJECT 






0343 



/ 




0344 



/ 

NAME IS 

IN THE 

BUFFER •• FILL IN THE BLANKS 

0345 



/ 




0346 

2026 

1056 

DXFNUM, 

TAD 

TABNUL 


0347 

2027 

3411 


DC A I 

AX 1 


0350 




ASMIFZ 

AUX 


0351 




ASMSKP 

10 


0352 




CDF 

XBF 


0353 




TAD I 

AX0 

/GET AUX 

0354 




CDF 

XSF 


0355 




SZA 


/DONT OISPLAY ZERO AUX 

0356 




jms i 

PCVNMB 

/ELSE CONVERT IT 

0357 




TAD 

TABNUL 


0350 




OCA I 

AX 1 


0361 




ASMSKP 

1 


0362 

2030 

2010 


X8Z 

AX0 


0363 

2031 

6211 


CDF 

XBF 


0364 

2032 

1410 


TAD I 

AX0 

/GET START BLOCK 

0365 

2033 

4763 


JMS X 

PCVNMB 


0366 

2034 

1066 


TAD 

TABNUL 


0367 

2035 

3411 


DCA X 

AX1 


0370 

2036 

6211 


CDF 

XBF 


0371 

2037 

1410 


TAD I 

AX0 

/GET LENGTH 

0372 

2040 

4763 


JMS X 

PCVNMB 


0373 

2041 

2005 


ISZ 

TMP4 

/BUMP CURRENT ENTRY 

0374 

2042 

1005 


TAD 

TMP4 


0375 

2043 

7041 


CIA 



0376 

2044 

1053 


TAD 

OXLAST 

/COMPARE WA ENTRY NO 

0377 

2045 

7710 


SPA CLA 


/PAST LAST? 

0400 

2046 

5253 


JMP 

DXLSET 

/YES - SET LEN 

0401 

2047 

1057 


TAD 

TCRLF 

/GO DOWN TWO LINES 

0402 

2050 

3411 


DCA I 

AX 1 


0403 

2051 

2004 


ISZ 

TMP3 

/END OF BUFFER? 

0404 

2052 

5200 


JMP 

DXFLP 

/NO-GET ANOTHER ENTRY 

0405 

2053 

1364 

DXL8ET, 

TAD 

MDXBUF 


0406 

2054 

1011 


TAD 

AX 1 

/BUFFER LENGTH 

0407 

2055 

3325 


DCA 

DXP1L 


0410 



/ 




0411 




EJECT 





( 


0418 



/ 




0413 



/ 

THIS IS 

THE HEART OF IT ALL 

0414 



/ 




0416 

2096 

6824 

DXDXSPf 

RIF 



0416 

2067 

6802 


CIF 

0 


0417 

2060 

4421 


JM3 I 

READ 


0420 

2061 

2126 


DXPRM2 



0421 

2062 

6224 

DXDLP, 

RIF 



0422 

2063 

6202 


CIF 

0 


0423 

2064 

4422 


JM* I 

WRITE 


0424 

2065 

2122 


DXPRM1 


/DISPLAY IT ALL 

0426 

2066 

1326 


TAD 

0XPRM2 


0426 

2067 

7710 


SPA Ct.A 


/IS READ DONE? 

0427 

2070 

5862 


JMP 

OXDLP 

/NO-WAIT 

0430 



/ 




0431 



/ 

HE TYPED SOMETHING! 

0432 

0433 

2071 

1306 

/ 

TAD 

PCMLST 


0434 

2072 

3810 


OCA 

AX0 

/LIST ADDR 

0436 

2073 

W10 

CMLSCN, 

TAO I 

AX0 

/GET CHAR FROM LIST 

0436 

2074 

7458 


SNA 



0437 

2075 

5256 


JMP 

OXOISP 

/END OF LIST 

0440 

2076 

1332 


TAD 

DXCOM 

/COMPARE REPLY CHAR 

0441 

2077 

7650 


SNA CLA 


/EQUAL? 

0442 

2100 

5303 


JMP 

CMFND 

/YES 

0443 

2101 

2010 


ISZ 

AX0 

/NO-BUMP PAST AOOR 

0444 

0446 

2102 

62?3 


JMP 

cmlscn 


0446 

2103 

1410 

CMFWD, 

TAO I 

AX0 

/GET ROUTINE AODR 

0447 

2104 

3002 


DCA 

TMPi 


0490 

2105 

5402 


JMP I 

TMP1 

/GO 

0491 



/ 




0462 

2106 

2351 

n* LST, 

COMLST- 


/COMMAND LIST 

0493 



/ 




0494 



/ 




0495 



/ 




0496 



/ 




0457 



/ 

LOCATE 

A FILE 


0460 



/ 




0461 

2107 

4721 

DXLQC 9 

JMS I 

POXWT 

/WHICH? 

0462 

2110 

3266 


DXHP2 



0463 

2111 

1134 


TAO 

XBJF 


0464 

2112 

?041 


CIA 



0469 

2113 

1041 


TAD 

XPOINT 

/RELATIVE ENTRY AODRESS 

0466 

2114 

m 2 


CLL RTR 



0467 

2115 

7810 


RAR 


/ENTRY NUMBER 

0470 

2116 

3052 


OCA 

OXFR8T 

/STORE 

0471 

211? 

5720 


JMP I 

.♦1 


0472 

2120 

1602 


DXWSCN 



0473 



/ 




0474 

2121 

2651 

POXWT # 

DXWAIT 



0476 

0476 

• 



/ 

EJECT 










0477 



/ 



0 S00 

2122 

0061 

DXPRM1 t 

6 i 

/INDEX IN DIAL CODES 

0501 

2123 

6211 


CDF 

XSF 

0502 

2124 

3445 


DXBUF 


0503 

2125 

0000 

DXP1L, 

0 


0504 



/ 



0505 

2126 

0040 

DXPRM2, 

40 

/READ FROM TTY 

0606 

2127 

6211 


CDF 

XSF 

0507 

2130 

2132 


DXCOM 


0510 

2131 

0001 


1 


0511 

2132 

0000 

DXCOM, 

0 


0 &1S 

2133 

0000 


0 


0513 

2134 

0000 


0 


0514 



/ 



0516 

2135 

0040 

DXPRM4, 

40 


0516 

2136 

6211 


CDF 

XSF 

0517 

2137 

3207 


DXRFLY 


0520 

2140 

0040 


40 


0521 

2141 

0000 


0 


0522 

2142 

0000 


0 


0523 

2143 

0000 


0 


0524 



/ 



0525 



/ 

INSERT 

" * FREE * « OR "WORK AREA" 

0526 



/ 

IN DISPLAY BUFFER 

0537 



/ 



0530 

2144 

4762 

DXFR, 

JMS I 

PNSERT 

0531 

2145 

7773 


■ 5 


0532 

214b 

2164 


IMFREE- 

1 

0533 

2147 

5353 


JMP 

DXFR2 

0534 



/ 



0535 



/ 



0536 

2150 

4762 

PXKK, 

JMS I 

PNSERT 

0537 

2151 

7773 


• 5 


0540 

2152 

2171 


IMWORK- 

1 

0541 

2153 

7240 


MONE 


0542 

2134 

3004 


OCA 

TMP3 

0543 

2155 

7307 

DXFR2, 

FOUR 


0544 

2156 

1225 


TAD 

DXPENT 

0345 

2157 

3010 


OCA 

AX0 /SET "FROM" POINTER 

0546 

2168 

5226 


JMR 

DXFNUM 

0547 



/ 



0550 

2161 

1737 

PMVX, 

MV X 


0551 

2162 

1756 

PNSERT, 

INSERT 


0552 

2163 

2200 

PCVNM9, 

CVNUM 


0553 



/ 



0554 

2164 

4334 

MDXBUF , 

-DXBUF*! 

0555 



/ 



0556 

2165 

4052 




0556 

2166 

4006 




0356 

2167 

2205 




0556 

2170 

0540 




0556 

2171 

5240 




0556 



IMFREE, 

TEXT 

" * FREE t « 

0557 

2172 

2717 




0557 

2173 

2213 




0557 

2174 

4040 




0557 

2175 

0122 




0557 

2176 

0501 




0657 



IMWORK t 

TEXT 

"WORK AREA H 

0560 



/ 



0661 




EJECT 




0668 



/ 




0663 




PAGE 



0664 



/ 




0806 



/ 

CONVERT 

THE CONTENTS OF AC TO 

0606 



/ 

TEXT FORMAT IN 

CORE 

0667 



/ 




0570 

2200 

0000 

CVNUM, 

0 



0671 

2201 

3002 


DCA 

TMPi 


0672 

2202 

6211 


COP 

xsr 


0873 

2203 

7240 


NONE 



0674 

2204 

3261 


OCA 

CVZ3W 

/SUPPRESS LEADING ZEROS 

0676 

2205 

4287 


JM3 

cvo 


0576 

2206 

7106 


CLL RTL 



0677 

2207 

7006 


RTl 



0600 

2210 

7006 


»TL 


/HCLO IN HIGH DIGIT 

0601 

2211 

3003 


OCA 

TMP2 


0602 

2212 

4287 


JMS 

CVO 


0603 

2213 

1003 


TAD 

TMP2 

/COMBINE WITH LA8T 

0604 

8214 

3411 


OCA I 

AX 1 

/STORE 

0606 

2215 

4227 


JMS 

CVO 


0606 

2216 

7J06 


Cll RTL 



0607 

2217 

7206 


RTL 



0610 

8220 

7006 


RTl 



0611 

2221 

3003 


OCA 

TMP2 

/THIRD OIGIT 

0612 

2228 

3261 


DCA 

cvzsw 

/FORCE SIGNIFICANT DIGIT 

0613 

8883 

4227 


JM$ 

cvo 


0614 

2824 

1003 


TAD 

TMP2 

/COMBINE 

0616 

8286 

3411 


OCA 1 

AX t 

/STORE 

0616 

8286 

5600 


JMR I 

CVNUM 

/RETURN 

0617 



/ 




0626 



/ 

CONVERT 

A DIGIT 

TO TEXT FORMAT 

0621 



/ 




0622 

2887 

0000 

CVD v 

0 



0623 

8830 

1002 


TAD 

TMPi 

/GET THE WORD 

0624 

8231 

7004 


RAL 



0626 

2238 

7006 


RTL 


/SHIFT ONE DIGIT 

0626 

2833 

3002 


OCA 

TMPi 

/HOLD THAT 

0627 

8834 

1002 


TAO 

TMPI 


0630 

8235 

7004 


RAL 


/HO DIGIT IN 0.11 

0631 

2836 

0062 


AND 

97 

/STRIP OTHERS 

0632 

8837 

8261 


I8Z 

CVZ8W 

/PRECEDING ZERO! 

0633 

2240 

6246 


JMR 

CVNZ 

/NO . DO NOT BLK 

0634 

8241 

7440 


SZA 


/IS THIS ZEROT 

0635 

2842 

8246 


JMR 

CVNZ 

/NO AGAIN 

0636 

2243 

7240 


MONE 


/ELSE BLANK DIGIT 

0637 

8244 

3251 


OCA 

cvzs* 

/AND SET SWITCH 

0640 

2245 

1066 


TAO 

M20 

/0 BECOMES BLANK 

0641 

2246 

1260 

CVNZ, 

TAO 

CV00 


0642 

8847 

5627 


JMR | 

CVD 

/RETURN IT 

0643 



/ 




0644 

8250 

0060 

CV60, 

60 



0646 

8861 

0000 

CVZSN, 

0 




0646 / 

6647 


eject 



0630 



/ 




065} 



/ 

CONVERT 

A NUMB 

TO ASCII 

0682 



/ 




0633 

3858 

0000 

CVNA, 

0 



0634 

8853 

3002 


DCA 

TMP1 


0633 

8854 

6211 


COP 

X9P 


0636 

8855 

7840 


MONE 



0637 

8856 

3801 


OCA 

CVZ3W 

/8UPPRES3 LEADING ZEROS 

0660 

8857 

7346 


MTHREE 



0661 

3860 

3063 


DCA 

TMP2 

/COUNT DIBITS 

066a 

8361 

4227 

CVNALP, 

JM3 

CVD 

/CONVERT ONE DIGIT 

0663 

3868 

1273 


TAD 

P200 

/MAKE NUMERIC (OR BLANK! 

0664 

2363 

3411 


DCA I 

AX 1 

/PUT IN BUFFER 

0665 

8864 

2003 


I8Z 

TMP2 


0666 

2969 

58®l 


JMP 

CVNALP 


0667 

2266 

3851 


DCA 

CVZSW 

/FORCE LA8T DIGIT 

0670 

2267 

4227 


JMS 

CVD 


0671 

8270 

1273 


TAD 

P200 


0678 

2271 

3411 


DCA 1 

AX 1 


0673 

2872 

SSS2 


JMP X 

CVN A 


0674 



/ 




0678 

3273 

0200 

P300, 

200 



0676 



/ 




0677 



/ 

CONVERT 

TEXT TO 

ASCII 

0700 



/ 




0701 

2274 

0000 

CVTA, 

6 



0708 

2275 

1674 


TAD I 

CVTA 

/length 

0703 

3276 

3068 


DCA 

TMP1 


0704 

8877 

8874 


I8Z 

CVTA 


070B 

3300 

1674 


TAD I 

CVTA 


070 6 

2301 

3603 


OCA 

TMP2 


0707 

2902 

2274 


XSZ 

CVTA 


0710 

2303 

1463 

CVTALP, 

TAD I 

TMP2 

/GET TWO CHARS 

0711 

2304 

7012 


RTR 



0718 

2308 

7012 


RTR 



0713 

2306 

7012 


RTR 


/FIRST IN 6-11 

0714 

2307 

4316 


JMS 

cvc 

/CONVERT IT 

0718 

2310 

1403 


TAD I 

TMP2 

/SECOND IN 6-11 

0716 

2311 

4316 


JMS 

cvc 

/CONVERT IT 

07t7 

2318 

2003 


ISI 

TMP2 

/BUMP AODR 

0780 

2313 

2008 


XSZ 

TMP1 


0781 

2314 

5303 


JMP 

CVTALP 


0788 

2315 

5674 


JMP I 

CVTA 

/RETURN 

0733 


/ 




0734 



/ 

CONVERT 

A CHARACTER TO ASCII 

0735 



/ 




0736 

8316 

0000 

CVC, 

0 



0787 

2317 

0078 


AND 

P 77 

/8TRIP TO SIX 

0730 

2330 

1071 


TAD 

M40 

/TEST RANGE 

0731 

2321 

7510 


SPA 



0733 

8323 

1073 


TAD 

P180 

/ALPHA 

0733 

3323 

1074 


TAD 

P240 


0734 

2324 

3411 


DCA X 

AX t 

/STORE ASCII 

0735 

0736 

233s 

9716 

/ 

JMP I 

cvc 


0737 




EJECT 





( 


0740 



/ 




0741 



/ 




0740 



/ 

command 

HANDLERS 

0743 



/ 




0744 



/ 

MOVE DISPLAY FOREWARD 

074B 



/ 




0746 

2326 

7201 

DXF0R1, 

ONE 


/BUMP BY ONE 

0747 

2327 

7410 


8KP 



0790 

2330 

1350 

DXFORE, 

TAD 

PPRAME 

/BUMP 

0791 

2331 

1062 


TAD 

DXFRST 

/TOP ENTRY 

0790 

2332 

3062 


OCA 

OXFRST 


0793 

2333 

6746 


JMP I 

PDSCAN 


0794 



/ 




0796 



/ 

BACK UP 



0796 



/ 




0797 

2334 

7240 

DXBAK1, 

MONE 


/BACK UP ONE 

0760 

2338 

7410 


8KP 



0761 

2336 

1361 

DXBACK, 

TAD 

MFRAME 


0760 

2337 

1062 


TAD 

OXFRST 

/BACK UP FZRST ENTRY 

0763 

2340 

3062 


DCA 

OXFRST 


0704 

2341 

5746 


JMP I 

POSCAN 


0766 



/ 




0766 



/ 

OELETE 



0707 



/ 




0770 

2342 

4747 

DXDEl. 

JMS t 

PNAIT 

/SET PILE 

0771 

2343 

3266 


DXHP2 



0772 

2344 

4625 


JMS Z 

DELET 

/DELETE IT 

0773 

2348 

8746 


JMP I 

PDSCAN 


0774 



/ 




0776 

2346 

1602 

PDSCAN, 

dxwsCn 



0776 

2347 

2681 

PNAIT, 

DXWAIT 



077 7 

2380 

0006 

PPRAME, 

XL1NE8 



1000 

2361 

7772 

MPRAME, 

-XUINE8 



1001 



/ 




1002 



/ 

OX COMMANDS, WITH HANDLER ADDRESSES 

1003 



/ 




1004 

2362 

7663 

COMIST, 

• 215 


/CR 

1008 

2383 

0257 


XSRMP 



1046 

2364 

7472 


• 306 


/F 

1007 

2365 

2330 


DXFORE 



1010 

2366 

7476 


• 302 


/B 

1011 

2367 

2336 


OXBACK 



1012 

2360 

7966 


•212 


/LF 

1013 

2361 

2326 


DXPOR1 



1014 

2362 

7645 


-233 


/ALT 

1018 

2363 

2334 


DXBAKl 



1016 

2364 

7474 


-304 


/D 

1017 

2365 

2342 


OXOEL 



1020 

2366 

7477 


-301 


/A 

1021 

2367 

2601 


OXALZS 



1022 

2370 

7496 


•322 


/R 

1023 

2371 

2605 


OXREN 



1024 

2372 

7460 


•320 


/P 

1025 

2373 

2400 


DXPRNT 



1026 

2374 

7464 


• 314 


/L 

1027 

2375 

2107 


DXLOC 



1030 

2376 

0000 


0 


ZENO OF LIST 

1031 



/ 




1032 




EJECT 




I 



1033 



/ 




1034 




PACE 



1033 



/ 




1036 



/ 

PRINT THE INDEX 


103? 



/ 




1040 

8 400 

6824 

DXPRNT , 

RIP 



1041 

2401 

6208 


CIP 

0 


1048 

2402 

4481 


JMS I 

READ 


1043 

8403 

2186 

PPRM2, 

DXPRM2 



1044 

8404 

1135 


TAD 

PRPLY 

/USE REPLY BUFFER 

10 46 

8403 

3011 


OCA 

AX l 

/FOR OUTPUT 

1046 

2406 

4331 


JMS 

LFL P 


104y 

2407 

4781 


JM8 I 

PCVTA 

/CONVERT HEADING TO ASCII 

1050 

8410 

7773 


• 5 



1051 

8411 

3401 


PXH l 



1058 

8412 

4781 


JMS I 

PCVTA 

/GET VQLID 

1053 

8413 

7773 


• 5 



1054 

2414 

4000 


XBUPFR 



1055 

8415 

4342 


JM8 

pxline 


1056 

2416 

4781 


JMS 1 

PCVTA 


1057 

241? 

7771 


«7 



1060 

2480 

3403 


PXH8 



1061 

2421 

1716 


TAD I 

PXUEN 

/GET INDEX LEN 

1068 

2432 

4738 


JM3 I 

PCVNA 


1063 

8423 

4348 


JM8 

pxline 


1064 

2424 

4721 


JMS I 

PCVTA 


1069 

2425 

7770 


-10 



1066 

2426 

3415 


PXH3 



1067 

2427 

1717 


TAD I 

pvlen 

/GET VOLUME LEN 

1070 

2430 

4782 


JMS I 

PCVNA 


t0?i 

2431 

4348 


JMS 

PXLINE 


1072 

2432 

1720 


TAD I 

PJST 

/TEST JCL START 

1073 

2433 

7640 


SZA CLA 


/SYSTEM? 

1074 

8434 

5240 


JMP 

PXSYS 

/YES 

1079 

2435 

4781 


JMS I 

PCVTA 

/NO 

1076 

8436 

7776 


-2 



1077 

2437 

3425 


PXH4 



1100 

£440 

4721 

PX8YS, 

JMS I 

PCVTA 

/SYSTEM 

1101 

8441 

7775 


-3 



1102 

2442 

3427 


PXH3 



1103 

2443 

1102 


TAD 

LINFED 


1104 

8444 

3411 


DC A I 

AX 1 


1105 

2443 

4348 


JMS 

PXLINE 


1106 

2448 

4721 


JMS I 

PCVTA 

/DO HEAOER 

1107 

2447 

7755 


-13 



1110 

8490 

3438 


PXH6 



nu 

8451 

4342 


JMS 

PXLINE 


1118 

2452 

1134 


TAD 

XBllP 

/INITIALIZE 

1113 

2463 

1069 


TAD 

P20 

/ENTRY POINTER 

1114 

8454 

3270 


DC A 

PXENT 


1115 



7 




1116 

m 




EJECT 




117 



/ 




120 



/ 

MAIN PX 

LOOP 


121 



/ 




I2e 

2455 

1063 

PtlQOP, 

TAD 

P10 


123 

2456 

1270 


TAD 

PXENt 

/NEXT ENTRY 

124 

2457 

3270 


OCA 

PXENT 


125 

2460 

1870 


TAD I 

PXENT 


120 

2461 

7460 


SNA 


/IS THIS WAT 

127 

2462 

5274 


JMP 

PXWA 

/YES 

130 

2463 

1055 


TAD 

MBLNKS 


131 

2464 

7660 


SNA CLA 


/IS THIS FREET 

132 

2465 

5255 


JMP 

PXLOOP 

/YEi « SKIP IT 

133 

2466 

4721 


JMS I 

PCVTA 

/CONVERT ENTRY 

134 

2467 

7773 


■ 5 



135 

2470 

0000 

PXENT» 

0 



135 

2471 

1003 


TAO 

TMP2 

/SIT POINTER 

137 

2472 

4304 


JMS 

PXSL 

/DO THE THINS 

140 

2473 

5256 


JMP 

PXLOOP 

/GO TO NEXT 

141 



/ 




142 



/ 

HERE IS 

w* 


143 



/ 




144 

2474 

4721 

PXWA, 

JMS I 

PCVTA 

/WORK AREA 

146 

2476 

7773 


• 5 



146 

2476 

2172 


tMWQRK 



147 

2477 

1061 


TAO 

P5 


150 

2500 

1270 


TAD 

PXENT 


151 

2501 

4304 


JMS 

PXSL 


152 

2502 

4331 


JMS 

LPLP 


153 

2503 

5775 


JMP I 

POXDLP 


154 



/ 




155 



/ 

USEFUL SUBROUTINE 

156 



/ 




157 

2504 

0000 

p*su 

0 



160 

2505 

3012 


DC A 

AX2 

/SEt POINTER 

161 

2506 

4323 


JMS 

PXBB 

/SPACE TWO 

162 

2507 

1412 


TAD I 

AX2 

/OEf Start block 

163 

2510 

4722 


JMS I 

PCVNA 

/CONVERT THAT 

164 

2511 

4323 


JMS 

PXBB 

/SPACE A LITTLE 

165 

2512 

1412 


TAD X 

AX2 

/Gif LlNSTH 

166 

2513 

4722 


JMS I 

PCVNA 

/CONVERT, AND 

167 

2514 

4342 


JMS 

PXLINE 

/PRiNT IT 

170 

2515 

5704 


JMP I 

PXSL 


171 



/ 




i7g 

2516 

4006 

PXLEN# 

XBUFFR+8 



2617 

4007 

PVLEN, 

XBUFFR*7 


174 

2520 

4026 

PJ8T, 

XBUFFR+26 


175 



/ 




176 

2521 

2274 

PC VTA» 

CVTA 



177 

2522 

2252 

PCVNA, 

CVNA 




200 / 
201 


EJECT 



1203 



/ 




1203 



/ 

TWO BLANKS 


1204 



t 




1205 

2S23 

0P00 

PX0@, 

0 



1206 

2524 

1074 


TAD 

P240 


1207 

2529 

3411 


OCA I 

AXI 


1210 

2526 

1074 


TAD 

P840 


1211 

8527 

34H 


DCA l 

AXI 


1212 

2030 

67 2 3 


JMP I 

PXBB 


1213 



/ 




1214 



/ 

3CQCJT THE PAPER 

UP 

1216 



/ 




1216 

2531 

0000 

LFlFf 

0 



1217 

2538 

1876 


TAD 

Mil 


1220 

2833 

8002 


DCA 

TMPi 


1221 

2534 

lies 

LFLOOPp 

TAD 

I.INFED 


1232 

2533 

3411 


DCA I 

AXI 


1223 

2536 

2002 


m 

TMPI 


1224 

8537 

5884 


JMP 

IFLOQP 


1226 

254P 

4342 


JH8 

PXUINE 


1220 

254J 

5731 


JMP I 

LPLF 


1227 



/ 




1230 



/ 

PRINT AN INDEX 

LINE 

1231 



/ 




1232 

2542 

0000 

PXLXMEp 

0 



1233 

2543 

1101 


TAD 

GARRET 


1234 

2544 

3411 


DCA I 

AXI 


1236 

2545 

1102 


TAD 

limped 


1236 

2546 

3411 


DCA I 

AXI 


1237 

254? 

1139 


TAD 

PRPLY 


1240 

8SS0 

7041 


CIA 



1241 

2551 

1011 


TAD 

AXI 


1242 

2052 

3774 


DCA I 

PPRM4L 


1243 

2653 

6224 


RIF 



1844 

2584 

6202 


GIF 

0 


1246 

8556 

4422 


JM8 I 

WRITE 

/START OUTPUT 

1246 

2696 

8135 

PPRM4, 

DXPRM4 



1247 

2557 

1603 

mm, 

TAO I 

PPRM2 

/ANY CHAR TYPED? 

129b 

2560 

77BB 


0MA CLA 



1291 

2501 

5775 


JMP I 

PDXDLP 

/YES ■ TAKE COMMAND 

1232 

S002 

@224 


RIF 



1288 

2008 

6208 


GIF 

0 


1294 

2564 

4482 


JM0 J 

write 

/display index 

1265 

2565 

8122 


OXPRM1 



1290 

2866 

179S 


TAD I 

PPRM4 


1267 

2567 

7710 


3PA CLA 



1230 

2570 

5397 


JMP 

PXTEST 

/LOOP UNTIL ONE 

1801 

8871 

1135 


TAD 

PRPLY 

/SETUP FOR NEXT LINE 

1202 

2572 

3011 


OCA 

AXI 


1203 

2673 

6742 


JMP I 

pxline 

/RETURN 

1804 



/ 




1269 

2574 

2140 

PPRM4L# 

DXPRM4+3 


1206 

2373 

2@68 

PDXDUPp 

DilDLP 



1207 

2976 

7707 

HU, 

»l 1 



1270 



/ 




1271 




EJECT 





1272 



/ 




1273 




PAGE 



1274 



/ 




1275 

2600 

0000 

DXARSW, 

0 


/ALIAS OR RENAME CONTROL 

1276 



/ 




1277 



/ 




13)40 

2601 

4633 

DXALIS, 

JMS I 

PULL 

/IS INDEX FULL? 

1301 

2602 

7000 


NOP 


/TES 

1302 

2603 

6226 


JMP 

DXAFOL 

/REFUSE 

1303 

2604 

7240 


NONE 


/NO, SET SW 

1304 

2609 

3200 

DXREN, 

DCA 

DXARSW 

/SET ALIAS/RENAME S* 

1306 

2606 

4291 


JMS 

DXHAXT 

/GET OLD FILE 

1306 

2607 

3266 


0XHP3 



1307 

2610 

1041 


TAD 

XPOINT 


1310 

2611 

3043 


DCA 

XNXEP 

/SAVE POINTER 

1311 

2612 

1441 


TAD X 

XPOINT 


1312 

2613 

1069 


TAO 

M0LNKS 

/IF OLD IS FREE, 

1313 

2614 

7660 


SNA CLA 


/ALIAS0RENAME 

1314 

2619 

3200 


DCA 

DXARSW 


1316 

2616 

1260 

DXGNEW, 

TAD 

PHP4 


1316 

2617 

4772 


JMS I 

PWT2 

/GIT REPLY 

1317 

2620 

5243 


JMP 

DXNBAD 

/NUMERIC, TRY AGAIN 

1320 

2621 

4516 


JM8 X 

PINO 

/DOES THIS NAME EXIST? 

1321 

2622 

5231 


JMP 

OXAROO 

/NO 

1322 

2623 

4301 


JM8 

DXTELL 


1323 

2624 

3320 


DXEP1 


/NAME EXISTS 

1324 

2629 

5216 


JMP 

DXGNEW 

/TRY AGAIN 

1326 



/ 




1326 

2626 

4301 

PXAFUL, 

JMS 

DXTELL 


1327 

2627 

3366 


DXEP3 



1330 

2630 

5773 


JMP X 

POXSP 


1331 



/ 




1332 



/ 




1333 

2631 

2200 

DXARDO, 

xsz 

OXARSW 

/ALIAS OR RENAME? 

1334 

2632 

6241 


JMP 

OXRNDO 

/RENAME 

1336 

2633 

1043 


TAD 

XNXEP 

/SAVED XPOINT 

1336 

2634 

3941 


OCA 

XPOINT 


1337 

2635 

4524 


JMS X 

PAND 

/MAKE NEW ENTRY 

1340 

2636 

1003 


TAD 

P10 


1341 

2637 

1041 


TAO 

XPOINT 


1342 

2640 

3043 


OCA 

XNXEP 

/SUMP POINTER 

1343 

2641 

4521 

DXRNDO , 

JMS X 

MCOPY 

/COPY IN NEW NAME 

1344 

2642 

5647 


JMP X 

PDXSCN 

/AND RESUME DISPLAY 

1346 



/ 




1346 



/ 

NEW NAME NOT ALPHA 

1347 



/ 




1390 

2643 

1371 

DXNBAO, 

TAD 

MCARET 

/COMPARE CR 

1331 

2644 

7650 


SNA CIA 



1392 

2645 

5647 


JMP I 

PDXSCN 

/EQUAL, IGNORE REQUEST 

1393 

2646 

5216 


JMP 

DXGNEW 

/ELSE TRY AGAIN 

1394 



/ 




1399 

2647 

1602 

PDXSCN, 

OXWSCN 



1396 

2650 

3304 

PHP4, 

0XHP4 



1397 



/ 




1390 




IJICT 




1361 



/ 




1362 



/ 

WAIT FOR REPLY 


1363 



/ 




1364 

2651 

0000 

DXHAIT, 

0 



1386 

2652 

1661 


TAD I 

DXWAIT 

/SET HELP ADDR 

1366 

2653 

4772 


JM8 I 

PWT2 

/GET REPLY 

1387 

2654 

5263 


JMP 

DXWNUM 

/NUMERIC ANSWER 

1370 

2655 

4516 


JMS I 

FIND 

/LOOK IT UP 

1371 

2656 

7410 


8 KP 


/NO FIND 

1372 

2657 

5354 


JMP 

OXWXIT 


1373 

2660 

4301 

DXNBAD, 

JMS 

DXTELL 


1374 

2661 

3343 


OXIP2 



1376 

2662 

6252 


JMP 

DXWAITM 

1376 



/ 




1377 



/ 

ANSWER 

*AS NOT 

ALPHA 

14045 



/ 




1461 

2663 

7200 

DXWNUM, 

CLA 



1408 

2664 

1! 35 


TAD 

PRPLY 


1443 

2665 

3010 


OCA 

AX0 


1404 

2666 

3041 

DXWNLP, 

DC A 

XPOINT 

/SET XPOINT 

1408 

2667 

U10 


TAD 1 

AX0 


1406 

2670 

4530 


JMS I 

LIMIT 

/CHECK NUMERIC 

1407 

8671 

7S20 

DXM260p 

■ 260 



1410 

2672 

7511 


■ 267 



1411 

2673 

5321 


JMP 

OXWNO 

/out of range 

1412 

2674 

1271 


TAD 

DXM260 


1413 

2675 

1041 


TAO 

XPOINT 


14l 4 

2676 

7104 


CIL RAL 



1415 

2677 

7106 


CLl RTL 



1416 

2700 

5266 


JMP 

OXWNLP 


1417 



/ 




1420 



/ 

ERROR DISPLAY 


1421 



/ 




1422 

2701 

0000 

DXTELL, 

0 



1423 

2702 

1701 


TAD I 

OXTELL 


1424 

2703 

3314 


DC A 

DXTP 


1420 

2704 

2301 


ISZ 

DXTELL 


1426 

2705 

6224 


RIF 



1427 

2706 

6202 


GIF 

0 


1430 

8707 

4421 


JMS I 

READ 


1431 

2710 

2126 


0XPRH2 



1432 

2711 

6224 

DXTLUP, 

RIF 



1433 

2712 

6202 


CIF 

0 


14 «»4 

2713 

4422 


JMS I 

WRITE 


1435 

2714 

0000 

DXTP, 

0 



1436 

2715 

1710 


TAD I 

DXTLUP" 

1 

1437 

2716 

7710 


SPA CLA 



1440 

2717 

6311 


JMP 

DXTLUP 


1441 

2720 

5701 


JMP I 

DXTELL 


1442 



/ 




1443 




EJECT 




1444 



/ 




1445 



/ 

NUMERIC 

RERUY * 

10. IF ANY, IS 

1446 



/ 

IN XPOXNT. 


1447 



/ 




1450 

2721 

1371 

OXWND. 

TAD 

MCARET 

/CARRIAGE RETURN? 

1451 

2722 

7640 


SZA CLA 



1452 

2723 

6260 


JMP 

DXWBAD 

/NO-ERROR 

1453 

2724 

1136 


TAD 

PRPLY 


1454 

2725 

7040 


CM A 



1455 

2726 

1010 


TAD 

AX0 


1436 

2727 

7650 


SNA CLA 


/WAS CR FIRST CHARACTER? 

1457 

2730 

6773 


JMP I 

PDISP 

/YES - IGNORE REQUEST 

1460 

2731 

1041 


TAD 

XPOINT 

/RELATIVE ENTRY POINTER 

1461 

2732 

7110 


CLL PAR 



1462 

2733 

7012 


RTR 



1463 

2734 

7041 


CIA 



1464 

8735 

1093 


TAD 

DXLAST 

/COMPARE TO LAST ENTRY 

1465 

2736 

7710 


SPA CLA 



1466 

2737 

6260 


JMP 

DXWBAD 

/NOPE • TOO BIG 

1467 

2740 

1070 


TAD 

M30 


1470 

8741 

1041 


TAD 

XPOINT 

/COMPARE FIRST ENTRY 

1471 

2742 

7710 


SPA CLA 



1472 

2743 

6260 


JMP 

DXWBAO 

/NOPE 

1473 

8744 

1041 


TAD 

XPOINT 


1474 

2746 

1134 


TAD 

XBUF 


1475 

2746 

3041 


DCA 

XPOINT 

/POINTER WITHIN SUFFER 

1476 

2747 

6211 


CDF 

XBP 


1477 

2750 

1441 


TAD I 

XPOINT 

/GET FIRST WORD 

1500 

2751 

6211 


CDF 

XSF 


1501 

2762 

7660 


SNA CLA 



1502 

2753 

9260 


JMP 

DXWBAD 

/ZERO » BAD 

1503 



/ 




1504 



7 

MOVe AUX TO LIST AND RETURN 

1505 



/ 




1506 

2754 

1041 

DXWXIT, 

TAD 

XPOINT 


1567 

8755 

2756 

1061 


TAD 

P8 


1610 

3002 


DCA 

TMPl 


1611 

2757 

1136 


TAD 

PLI8T 


1512 

2760 

1061 


TAO 

PS 


1513 

2761 

3003 


OCA 

TMP2 


1514 

2762 

6211 


CDF 

XSF 


1616 

2763 

1402 


TAD I 

TMPl 

/GET INOEX AUX 

1516 

2764 

6201 


CDF 

XLF 


1517 

2765 

3403 


DCA I 

TMP2 

/PUT IN LIST 

1680 

2766 

6211 


CDF 

XSF 


1921 

2767 

22&1 


ISZ 

DXWAIT 

/BUMP RETURN 

1622 

2770 

9651 


JMP I 

DXWAIT 

/AND GO HOME 

1523 



/ 




1624 

2771 

7663 

MCARET , 

•215 



1525 

2772 

3000 

PWT2, 

DXWT2 



1526 

2773 

2096 

PDISP, 

DXDISP 



1527 



/ 




1530 




EJECT 




/ 

PACE 

SET REPLY, RETURN TO P*1 IP NUMERIC 
SKIP RETURN IP ALPHA WITH XLIST SET TO TEXT 


1631 



1532 



1533 



1534 



1830 



1636 



1537 

3000 

0000 

1540 

3001 

3287 

1541 

3082 

1071 

1542 

3003 

3002 

1543 

3084 

1136 

1544 

3005 

3010 

1640 

3006 

6211 

1846 

3007 

3410 

1547 

3010 

2802 

1650 

3011 

9207 

1551 

3012 

1371 

1532 

3013 

3787 

1633 

3014 

6224 

1654 

3016 

6202 

1555 

3016 

4421 

1656 

3017 

8136 

1557 

3020 

6224 

1360 

3021 

6202 

1861 

3022 

44 22 

1562 

3023 

8122 

1593 

3024 

6224 

1664 

3025 

6S®2 

1393 

3086 

4422 

1566 

3027 

@000 

1867 

3030 

6224 

1670 

3031 

6802 

1071 

3032 

4432 

1872 

3033 

3173 

1073 

3034 

1617 

1674 

3033 

7710 

1570 

3036 

6220 

1676 

3057 

1736 

1677 

3040 

4 S3® 

1600 

3041 

7477 

1681 

3042 

7446 

1682 

3043 

S600 

1603 

3044 

7800 

1004 

3045 

1130 

1606 

3046 

3011 

1606 

3047 

1076 

160? 

3030 

3008 

1610 

3051 

6801 

1611 

3093 

1004 

1612 

3083 

3411 

1613 

3094 

2002 

1614 

3055 

5252 

1616 



1616 




/ 

/ 


DXWT2, 

0 



DCA 

DXWHP 

DXWERR, 

TAD 

M40 


DCA 

TMPI 


TAD 

PRPLY 


OCA 

AX0 


CDF 

XSP 


DCA I 

AX0 


I3Z 

TMPI 


JMP 

□ *8 


TAD 

P40 


OCA I 
RIF 

0XP4L 


CIF 

0 


JMS I 
DXPRM4 

READ 

DXWLP, 

RIF 



GIF 

0 


JMS I 

QXPRM1 

RIF 

WRITE 


CIF 

0 


JMS I 

WRITE 

DXWHP, 

0 

RIP 



CIF 

0 


JMS I 
DXPRM3 

WRITE 


TAD I 
SPA CLA 

DXWtPM 


JMP 

OXWLP 

EJVENT, 

TAD I 

pansr 


JMS I 
<■301 
<■332 

LIMIT 


JMP I 
CLA 

oxwTa 


TAD 

PlIST 


DCA 

AX 1 


TAD 

M4 


DCA 

TMPi 


CDF 

XLP 


TAD 

HBLNKS 


DCA I 

AX 1 


I8Z 

TMPi 

/ 

JMP 

EJECT 

e ®3 


/HELP ADDRESS 
/MINUS REPLY LENGTH 

/REPLY PIELD -1 

/THIS FIELD 

/CLEAR SUFFER 
/SET LENGTH 


/DISPLAY INDEX 

/DISPLAY HELP 

/DISPLAY REPLY 
/READ DONE? 

/NO » LOOP 
/CHECK FOR ALPHA 

/NOT ALPHA, RETURN 



1617 



1620 

3056 

7240 

1621 

3007 

3003 

1622 

3060 

7240 

1623 

3061 

3204 

1624 

3062 

1135 

1625 

3063 

3610 

1626 

3064 

1136 

1627 

3065 

3047 

1636 

3066 

7346 

1631 

3067 

3002 

1632 



1633 

3070 

6211 

1111 

i£?l 

1416 

4630 

1636 

3073 

7477 

1637 

3074 

7446 

1640 

3075 

7410 

1641 

3070 

8303 

1642 

3077 

4530 

1643 

3100 

7520 

1644 

3101 

7507 

1645 

3102 

5340 

1646 



1647 

3103 

6201 

1650 

3104 

0072 

1651 

3105 

2003 

1652 

3106 

5314 

1663 

3107 

7106 

1654 

3110 

7006 

1655 

3111 

7006 

1656 

3112 

3447 

1657 

3113 

8270 

1660 

3114 

1447 

1661 

3115 

3447 

1662 

1663 

3110 

2047 

3117 

7240 

1664 

3120 

3003 

1665 

3121 

2002 

1666 

3122 

6270 

1687 

3123 

2104 

1670 

3124 

6360 

1671 



1572 



1673 

3125 

7344 

1674 

3126 

3002 

1676 

3127 

6211 

1676 

3335 

1410 

IS 77 

3131 

4530 

I'S? 

im 

nn 

1702 

3134 

6362 

1763 

3136 

5363 

1704 



1705 

3136 

3207 

1706 

3137 

2140 

1707 



1710 




MON e 

OCA THP2 

MONg 

OCA TMP3 

TAD PRPIY 

OCA AX0 

TAO PLI3T 

OCA XLIST 

MTHREE 

OCA TMP1 

/ 

GETA, CDF X3F 

TAO I AX0 

JHI I LIMIT 

• 301 
• 332 

AX p 

JMP PUTA 

JM8 I LIMIT 
•260 
•271 

JMP NOTAN 

/ 

PUTA, COP XLF 

AND P77 

I$Z TMP2 

JMP POOO 

CLL RTL 
RTL 
RTL 

OCA I XLIST 

JMP SETA 

POOD, TAO I XLIST 
DCA I XLIST 

ISZ XLIST 

MONE 

OCA TMP2 

ISZ TMP1 

JMP SETA 

NXCHK, ISZ TMPS 

JMP FINOCR 

/ 

/ 

MTWO 

OCA TMPl 

COP XSP 

TAD I AX0 

JMS I LIMIT 

-286 
-256 

JMP CRCHK 

JMP PUTA 

/ 

PANSR, DXRPLY 
0XP4L, 0XPRM4+3 
/ 

EJECT 


/SET ODD - EVEN CHAR 3w 
/SET NAME • EXT Sw 


/MAX pile name len 


/GET A CHAR 
/IS IT ALPHA? 


/NO 

/YES - ACCEPTABLE 
/NUMERIC? 


/NO 


/STRIP TO 6 BITS 
/ODD OR EVEN CHAR? 


/SHIFT TO LEFT 
/SAVE IT 

/GET EVEN CHAR 

/BUMP ADOR 

/RESET SWITCH 
/CHECK LIMIT 
/PINE, CONTINUE 
/NAME OR EXT SCAN? 
/EXT • GO AWAY 


/NAME 

/SET EXT COUNT 


/IS NEXT PERIOD? 


/NO, IS IT CR? 
/YES • GET EXT 


CHAR IS NOT ALPHA-NUMERIC 


17U 


1712 


1713 


1714 

3140 

1715 

3141 

1716 

3142 

1717 

3143 

1720 

3144 

1721 

3145 

1722 

3146 

1723 

3147 

1724 

3150 

1725 

3151 

1726 

3152 

1727 

3153 

1730 

3154 

1731 

3155 

1732 

3156 

1733 

3167 

1734 


1735 


1736 


1737 

3160 

1740 

3161 

1741 

3162 

1742 

3163 

1743 

3164 

1744 

3165 

1745 

3166 

1746 

3167 

1747 

3170 

1750 


1751 

3171 

1752 

3172 

1753 


1754 


1758 

3173 

1756 

3174 

1757 

3175 

1760 

3176 

1761 


1762 


1763 


1784 


1766 

3177 

1768 

3200 

1768 

3201 

1766 

3202 

1766 

3203 

1766 

3204 

1766 

3205 

1766 

3206 

1766 

3207 

1767 


1770 

3247 

1771 


1772 



/ 

/ 

/ 

7240 NOTAN, 
1010 
3010 
2003 
7410 
8362 
6801 
1371 
1447 
3447 

7388 NOFILL, 

1136 

3047 

7240 

3003 

3383 


/ 

/ 

/ 


sail 

FINDCR 

1410 


1372 

7640 

CRCMK, 

5002 


1136 

3047 

2200 

3600 

/ 

0040 

P40, 

7563 

/ 

/ 

0060 

6211 

DXPRH3 

3177 


0060 

/ 


/ 


/ 


/ 

0212 

DXRPY1 

0212 

212 ? 

0322 

3221 

0308 

305? 

0320 

320 ? 

0314 

314? 

0331 

33 1 ? 

0272 

272 

0240 

DXRPLY 


0215 

/ 


MONE 



TAD 

AX0 


OCA 

AX0 

/BACK UP POINTER 

ISZ 

SKP 

TMP2 

/ODD OR EVEN? 

JMP 

NOFILL 

/EVEN 

CDF 

XLF 


TAD 

P 40 


TAD I 

XLIST 


DCA I 
THREE 

XLIST 


TAD 

PLIST 


DCA 

MONE 

XLIST 

/POINT TO EXT 

DCA 

TMP2 

/SET EVEN CHAR 

JMP 

NXCHK 

/CONTINUE 

LOOK FOP 

1 CR 


CDF 

X8F 


TAD I 

AX0 


TAD 

SZA CLA 

M215 

/COMPARE CR 


JMP 
TAD 
DCA 
ISZ 
JMP I 

40 

-215 


60 
CDF 

OXRPY1 
50 

"REPLY!" AT TOP OF SCREEN, 

WITH SPACE FOR REPONSE IN ASCII 

212 ! 


DXWERR /OOPS 

PLIST 

XLI8T 

DXWT2 

0XWT8 /RETURN ALPHA 


/ASCII DISPLAY OF REPLY 

XSP 


240 

*.+37 

215 /GUARANTEED CR 

EJECT 


1773 



/ 




1774 



/ 

MESSAGES AND 

THINGS 

1775 



/ 




1776 

3250 

4011 





1776 

3251 

0447 





1776 



IMVIO, 

TEXT 

« ID 

n 

1777 

3252 

4715 





1777 

3233 

1716 





1777 

3234 

1124 





1777 

3255 

1722 





1777 

3256 

4747 





1777 



IMMON, 

TEXT 

H 

MONITOR 

2000 

3257 

4712 





2000 

3260 

1702 





2000 

3261 

4003 





2000 

3262 

1716 





2000 

3263 

2422 





2000 

3264 

1714 





2000 

2000 

3265 

4700 

XMJCU 

TEXT 

M 

JOB CONTROL 

2001 



/ 




2002 



DXHP2* 

• 



2003 

3266 

0061 

DXHP3, 

61 



2004 

3267 

3270 

6211 


COP 

XSF 


2005 

3272 


.♦2 



2006 

3271 

0012 


0XMP4- 



2007 



t 



2010 

3272 

0045 


45 



2011 

3273 

0516 





2011 

3274 

2422 





2011 

3275 

3140 





2011 

3276 

1722 





2011 

3277 

4006 





2011 

3300 

1114 





2011 

3301 

0540 





2011 

3302 

1601 





2011 

3303 

1505 





2011 




TEXT 

"ENTRY OR FILE NAME 

2012 



i 




2013 

3304 

0061 

DXHP4, 

51 



2014 

3306 

6211 


COP 

XSF 


2015 

3306 

3310 


.♦a 



2016 

3307 

0010 


0XHP5- 

#•1 


2017 

2020 

3310 

0045 

/ 

45 



2021 

3311 

1605 





2021 

3312 

2740 





2021 

3313 

0611 





2021 

3314 

1405 





2021 

3315 

4016 





2021 

3316 

0115 





2021 

3317 

0900 





2021 




TEXT 

"NEW 

FILE NAME" 

2022 



/ 



2023 



DXHP5* 

t 



2024 



/ 




2025 

• 




EJECT 




i. 



2026 

2027 

3320 

2030 

3321 

2031 

3322 

2032 

3323 

2033 

3324 

2033 

3323 

2033 

3326 

2033 

3327 

2033 

3330 

2033 

3331 

2033 

3332 

2033 

3333 

2033 

3334 

2033 

3335 

2033 

3336 

2 M3 

3337 

2033 

3340 

2033 

3341 

2033 

2033 

3342 

2034 


2038 

3343 

2036 

3344 

2037 

3345 

2040 

3346 

2041 

2041 

mi 

2041 

3351 

2041 

3382 

2041 

3353 

2041 

3394 

2041 

3353 

2041 

3356 

2041 

3357 

2041 

3360 

2041 

3361 

2041 

3362 

2041 

3363 

2041 

3364 

2041 

3368 

2041 

2042 

2043 

3366 

2044 

3367 

204S 

3370 

2046 

3371 

2047 

3372 

2047 

3373 

2047 

3374 

2047 

3375 

2047 

3376 

2047 

3377 

2047 

2047 

2060 

2061 

3400 


/ 

C061 DXEPl, 

sell 

3384 
0017 
8317 
8828 
3134 
4016 
0827 
4816 
Cl 18 
0840 
0114 
2208 
0104 
3140 
0830 
1123 
2423 

/ 

0061 DXEP2, 
6211 
3347 
0017 

mi 
1106 
1105 
0440 
0611 
1 40S 
4004 
1708 
2340 
1617 
2440 
0830 
1123 
2400 

/ 

0061 DXEP3, 
6211 

3372 

0007 

1116 

0406 

3040 

1123 

4006 

2814 

1400 


61 

CDF X3F 

s *2 

DXEP2.,«1 


TEXT "SORRY, NEW NAME ALREADY EXISTS" 

61 

COF XSP 

.♦2 

0XEP3-.-1 


TEXT "SPECIFIED FILE DOES NOT EXIST" 

61 

CDF XSF 

. + 2 

PXHl-,-1 


TEXT "INDEX IS FULL" 


EJECT 



2092 

2093 

2094 
2099 

6401 

1116 

/ 

/ 

/ 

2099 

3402 

0409 


2099 

3403 

3040 


2099 

3404 

1706 


2099 

3408 

7240 


2099 

2096 

3406 

1116 

PXH1 

2096 

3407 

0405 


2096 

3410 

3040 


2096 

3411 

1405 


2096 

3412 

1807 


2096 

3413 

2410 


2096 

3414 

4079 


2096 

2097 

3419 

2617 

PXH2 

2097 

3416 

1425 


2097 

3417 

1S06 


2097 

3420 

4014 


2097 

3421 

0516 


2097 

3422 

0724 


2097 

3423 

1040 


2097 

3424 

7640 


2097 

2060 

3429 

4016 

PXH3 

2000 

3426 

1740 


2060 

2061 

3427 

2331 

PXH4 

2061 

3430 

2324 


2061 

3431 

0916 


2061 

2062 

3432 

0611 

PXH5 

2062 

3433 

1416 


2062 

3434 

0115 


2062 

3439 

4005 


2062 

3436 

3024 


2062 

3437 

4040 


2062 

3440 

2324 


2062 

3441 

0122 


2062 

3442 

2440 


2062 

3443 

4014 


2062 

3444 

0916 


2062 

2063 

2064 



PXH6 

/ 


PRINT INDEX FORMS 

TEXT "INDEX OFl " 

TEXT "INDEX LENGTH ■« 

TEXT "VOLUME LENGTH ■ « 

TEXT " NO " 

TEXT "SYSTEM" 

TEXT "FILNAM EXT START 

EJECT 


LEN" 



2065 



/ 



2066 



/ 

SKELETON 

DISPLAY IMAGE 

2067 



/ 



2070 

3445 

4545 

OXBUF, 

4549 

/LINE FEEDS 

2071 

3446 

4545 


4545 


2072 

3447 

0516 




2072 

3460 

2422 




2072 

3451 

3147 




2072 

3452 

4747 




2072 




TEXT 

"ENTRY 

2073 




A8MIFN 

AUK 

2074 



TEXT 

"AUX 

n 

2075 

3453 

2324 




2075 

3454 

2224 




2075 

3458 

4714 




2075 

3456 

0516 




2076 



TEXT 

H$TRT 

LEN" 

2076 

3457 

4345 


4545 


2077 



/ 



2100 

3460 

0000 

XMPIL8, 

0 

/FILE INFO HERE 

2101 



/ 



2102 



/ 



2103 




EJECT 




2 

104 



/ 




2 

L 05 



/ 

CNO-OF- 

JOB FILE 

SAVING 

2 

106 



/ 




2 

10 ? 



/ 

THIS CODE IS NON*REU8ABLE, AND 

2 

110 



/ 

IS DESTROYED BY 

DX. 

2 

11 ! 



/ 




2 

112 




FDBL8T*7530 

7CMI BUFFER IN FIELD 0 

2 

LIS 






7U8ED TO BUILD FDB LIST 

2 

114 



/ 




2 

116 




• 0 



2 

116 

0000 

3460 


SJS000 


/PASS ENTRY POINT 

2 

11 ? 




•IHPILS 



2 

120 



/ 




2 

121 

3460 

0000 

5 JS000, 

0 



2 

122 

$401 

5668 


JMP I 

.♦1 


2 

123 

3468 

4000 


EJB000 


/SORT tME FOBS 

2 

124 

3463 

6801 

EJS010, 

CD? 

XL? 

/GET FOB POINTER 

2 

126 

3464 

1755 


TAD I 

PPPILE 

2 

126 

3465 

3354 

EJ8020, 

OCA 

PhLE 


2 

12 ? 

3466 

8355 


ISZ 

PPPILE 

/BUMP TO UNIT 

2 

130 

3467 

1364 


TAD 

EJPARM 

/GfeT CURRENT UNIT 

2 

131 

3470 

0368 


AND 

strip 


2 

132 

3471 

7041 


CIA 

PPPILE 


2 

133 

3478 

1755 


TAD I 

/COMPARE THIS UNIT 

2 

134 

3473 

7650 


SNA CIA 



2 

136 

3474 

5303 


JMP 

EJS030 

/IF SAMEi DONT READ 

2 

136 

3475 

1750 


TAD I 

PPPILE 

/GET UNIT AGAIN 

2 

13? 

3476 

3364 


DCA 

EJPARM 

/INTO PARAM LIST 

2 

140 

3477 

6884 


RI? 



2 

141 

3500 

6808 


Cl? 

0 


2 

148 

3541 

4481 


JMS I 

READ 

/READ INDEX 

2 

143 

3502 

3564 


EJPARM 



2 

144 

3505 

1354 

EJI0S0, 

TAD 

PFILE 

/PASS FOB ADDR 

2 

145 

3504 

4756 


JMS I 

EJV 

/VALIDATE NAME 

2 

146 

3505 

5348 


JMP 

EJ3160 

/NO SAVE, PLEASE 

2 

147 

3505 

1364 


TAD 

EJPARM 


2 

150 

3507 

7710 


SPA CIA 



2 

151 

3510 

5306 


JMP 

• •2 

/WAIT FOR INDEX 

2 

158 

3511 

6811 


CD? 

x$r 


2 

153 

3518 

1008 

EJ8100, 

TAD 

P7 


2 

154 

3513 

4760 


JMS I 

PXSERV 

/IDENTIFY IT 

2 

155 

3514 

7614 


DUST 


/MOVED TO OLIST 

2 

156 

3515 

3517 


EJ8110 



2 

157 

3516 

5325 


JMP 

EJ3150 


2 

m 



/ 




2 

i d & 




EJECT 






2182 



/ 




2163 



/ 

IDENTIFY 

- failed 


2164 



/ 




2166 

3817 

1363 

EJ3110, 

TAD 

M2 

/NAME MATCH? 

2166 

3526 

7650 


SNA CLA 



2167 

3521 

5757 


JMP 1 

EJN 

/YI3i GET NEW NAME 

2170 

3522 

4761 


JMS I 

tell 

/CANT SAVE 

2171 

3523 

3730 


EJH2 



2172 

3524 

5342 


JMP 

EJS160 


2173 



/ 




2174 



/ 

OK-WRITE THE INDEX 

2176 



/ 




2176 

3525 

1045 

EJS150, 

TAD 

XLEN 


2177 

3526 

7104 


DLL RAL 



2200 

3527 

7106 


CLL RTL 


/XLEN IN WORDS 

2201 

3530 

3367 


DC A 

EJPARM+3 

2202 

3531 

6224 


RIF 



2203 

3532 

6202 


CIF 

0 


2204 

3533 

0422 


JMS I 

WRITE 

/write index 

2208 

3534 

3584 


EJPARM 



2206 

3835 

1364 


TAO 

EJPARM 

/wait for completion 

2207 

3536 

7710 


SPA CLA 



2210 

3637 

5335 


JMP 

• •2 


2211 

3540 

7330 


AC4000 



2212 

3641 

3367 


DCA 

EJPARM*3 /RESET LENGTH FOR NEXT 

2213 

3542 

7200 

EJ3160, 

CLA 



2214 

3543 

6201 


COF 

XLF 

/reset field 

2216 

3544 

2355 


IS! 

PPFILE 


2216 

3545 

2355 


ISZ 

PPFILE 

/bump to next addr 

2217 

3546 

1785 


TAD I 

PPFILE 

/GET NEXT FOB ADDR 

2220 

3547 

7 A 40 


SZA 


/DONE? 

2221 

3550 

5265 


JMP 

EJS020 

/NO, 00 THIS 

2222 

3551 

6203 

EJ8170, 

CIF CDF 

0 


2223 

3552 

3040 


DCA 

MOQSW 

/RESET MODIFICATION 8W 

2224 

3583 

8660 


JMP I 

EJS000 


2226 



t 




2226 

3554 

0000 

pule, 

0 


/CURRENT PDB ADDR 

2237 

3565 

7550 

PPFILE, 

FDBLST 


/FOB LIST POINTER 

2230 

3556 

3600 

EJV, 

EJV000 



2231 

3557 

3076 

EJN, 

EJN000 



2232 

3560 

0210 

PXSERV i 

XSERV 



2233 

3561 

2701 

TELL, 

DXTELL 



2234 

3562 

0077 

STRIP, 

77 



2236 

3563 

7776 

82, 

»2 



'2236 



/ 




2237 

3664 

0000 

EJPARM, 

0 



2240 

3565 

6211 


COP 

XBF 


2241 

3566 

4000 


4000 


/INDEX TO 4000 

2242 

3567 

4000 


4080 


/10 BLOCKS 

2243 

3570 

0000 


0 


/STARTING AT 0 

2244 

3571 

0000 


0 



2246 

3572 

0000 


0 



2246 



/ 




8247 




EJECT 





PAGE 

CHECK AND DECODE THE FILENAME 


2290 



2291 



2292 



2293 



2294 



2299 

3600 

0000 

2299 

3601 

7061 

2297 

3602 

3011 

2290 

3603 

1139 

2261 

3604 

3010 

2262 

3609 

1322 

2263 

3606 

3012 

2264 

3607 

1076 

2269 

3610 

3002 

2266 

3611 

6201 

2267 

3612 

MU 

2270 

3613 

3003 

2271 

3614 

6211 

2272 

3619 

1003 

2273 

3616 

3412 

2274 

3617 

1003 

2275 

3620 

7012 

2276 

3621 

7012 

2277 

3622 

7012 

2300 

3623 

4304 

2301 

3624 

1003 

2302 

3625 

4304 

2303 

3626 

2002 

2304 

3627 

9211 

2305 

3630 

7346 

2306 

3631 

3002 

2307 

3632 

1323 

2310 

3633 

3012 

2311 

3634 

6201 

2312 

3635 

1411 

2313 

3636 

3412 

2314 

3637 

2002 

2315 

3640 

9236 

2316 

3641 

6211 

2317 

3642 

1010 

2320 

3643 

7041 

2321 

3644 

1139 

2322 

3645 

7690 

2323 

3646 

9266 

2324 

3647 

1101 

2325 

3660 

3410 

2326 



2327 




/ 

/ 

EJV000 i 0 

I AC 

DCA AXl 

TAD PRPLY 

OCA AX0 

TAD PHNAME 

DCA AX2 

TAD MS 

DCA TMPi 

EJY010, COP XLP 

TAD I AX1 
DCA TMP2 

CDP XSP 

TAD TMPg 

DCA I AX2 
TAD TMP2 

RTR 
RTR 
RTR 
JM8 
TAD 
JMS 

ISZ TMPI 

JMP EJV010 

MTHREE 

DCA TMPI 

TAD PDLAUX 

DCA AX2 

CDP XLP 

EJV020, TAD I AX 1 
OCA I AX2 
ISZ TMPI 

JMP EJV020 

CDP XSP 

TAD AX0 

CIA 

TAD PRPIY 

SNA CLA 

JMP EJV0S9 

TAD CARRET 

DCA I AX0 

/ 

EJECT 


/AC POINTS TO PD8 
/GET TEXT PROM PAGE 37 

/PUT IN DXRPLY SUPPER 

/AND IN MESSAGE 

/TWO CHARS 


/MOVE TO MESSAGE 


/GET FIRST OP PAIR 


/SET TO MOVE 
/AUX, START AND LEN 


/ANY CHARS STORED* 
/NO-GET VALID NAME 
/ASCII CARRIAGE RETURN 


TAS /STORE IF NOT BLANK OR ZERO 

TMP2 

TAS /LIKEWISE SECOND 



FAKE A CALL TO QXWT2, TO HANDLE THE NAME 


2330 



2331 



2332 



2333 

3651 

1262 

2333 

3652 

3667 

2333 

3653 

1260 

2336 

3654 

3961 

2337 

3655 

5656 

2340 

3656 

3037 

2341 



2342 

3667 

3600 

2343 

3660 

3724 

2344 

3661 

3027 

2349 

3662 

3670 

2346 



2347 

3663 

1321 

2390 

3664 

7650 

2361 

3665 

5600 

2392 

3666 

1260 

2353 

3667 

4657 

2354 

3670 

5263 

2355 

3671 

2200 

2356 

3672 

8000 

2337 



2360 



2361 



2362 

3673 

1321 

2363 

3674 

7850 

2364 

3675 

5703 

2365 

3676 

1260 

2366 

3677 

4657 

2367 

3700 

5273 

2370 

3701 

5702 

2371 

3702 

3512 

2372 

3703 

3542 

2373 



23/4 



2379 



2376 

3704 

0000 

2377 

3705 

0320 

2400 

3706 

7450 

2401 

370 7 

5704 

2422 

3710 

1071 

2403 

3711 

7450 

2404 

3712 

5704 

2409 

3713 

7510 

2406 

3714 

1073 

2407 

3715 

1074 

2410 

3716 

3410 

2411 

3717 

5704 

2412 



2413 

3720 

0077 

2414 

3721 

7563 

2419 

3722 

3744 

2416 

3723 

7820 

2417 



2420 




/ 

/ 

/ 


TAD 

EJVRET 

DC A I 

PDXWT2 

TAD 

EJVHLP 

DCA X 

PDXWHP 

JMP X 

.♦1 

EJVENT 


7 


PDXWT2, DXWT2 


EJVHLP, EJH1 


PDXWHP» DXWHP 


EJVRET, EJV060 


7 


EJV05B, TAD 

MCR 

SNA CLA 


JMP 1 

EJV000 

EJV055, TAD 

EJVHLP 

JM8 I 

P0XWT2 

EJV060, JMP 

EJV050 

ISZ 

EJV000 

JMP X 

EJV020 

7 


/ GET A NEW NAME 

7 


EJN010, TAD 

MCR 

SNA CLA 


JMP I 

EJN020 

EJN000, TAD 

EJVHLP 

JMS I 

PDXWT2 

JMP 

EJN010 

JMP I 


EJ8100 


EJN020, EJS160 


7 


7 TEXT TO 

ASCII, 

7 


TAS, 0 


AND 

SIXBIT 

SNA 


JMP X 

TAS 

TAD 

M40 

SNA 


JMP I 

TAS 

SPA 


TAD 

P 100 

TAD 

P240 

DCA X 

AX3 

JMP I 

TAS 

7 


3IXBIT, 77 


MCR , «215 


PMNAME, HNAME-i 


PDLAUX, DL1ST*4 


7 


EJECT 



/RETURN HERE 
/WAS IT CRt 


EXCEPT BLANK AND ZERO 



21 



22 

3724 

0061 

23 

3729 

6211 

24 

3726 

3749 

25 

3727 

0033 

26 



27 

3730 

0061 

32 

3731 

6211 

31 

3732 

3734 

32 

3733 

0016 

33 



34 

3734 

4547 

i33 

3739 

2516 

36 

3736 

0102 

36 

3737 

1405 

35 

3740 

4024 

35 

3741 

1740 

35 

3742 

2301 

36 

3743 

2605 

36 

3744 

4000 

35 



36 

3749 

4040 

37 

3746 

4040 

42 

3747 

4040 

41 

3790 

4040 

42 

3791 

4040 

43 

3762 

4011 

43 

3793 

2340 

43 

3794 

1116 

43 

3799 

2601 

43 

3796 

1411 

43 

3797 

0440 

43 



44 

3760 

1722 

44 

3761 

4304 

44 

3762 

2520 

44 

3763 

1411 

44 

3764 

0301 

44 

3769 

2405 

44 

3766 

4006 

>44 

3767 

1114 

44 

3770 

0516 

44 

3771 

0116 

44 

3772 

0556 

>44 

3773 

4023 

44 

3774 

0126 

44 

3779 

0640 

44 

3776 

0123 

44 

3777 

7700 

44 



45 



46 



47 



52 




/ 

EJH1, 


/ 

e jm2, 


61 

CDF XSP 

HNAME 

EJM3-NNAME 

61 

CDF XSP 

.♦2 

HNAMf«,*4 


TEXT 

HNAME, 4040 
4040 
4040 
4040 
4040 


"UNABLE TO SAVE " 

/SAVE NAME GOES HERE 


" IS INVALID OR 


DUPLICATE FILENAME, SAVE AST" 
/ 

EJHSf. 

/ 


EJECT 






2431 

2438 

2433 

2434 
2433 
2456 
2437 
24619 
2461 
2408 
2463 
2404 
2466 

2466 

2467 
24 76> 

2471 

2472 

2473 
2d 74 
2476 

2476 

2477 

z$m 

2531 
2522 
2543 
2334 
2663 
2546 
25^7 
2315 

2511 

2512 
3513 

2514 

2515 

2516 

2517 
2520 
2621 
2322 
2823 

2324 

2325 
2526 
2827 
3330 
2331 

2532 

2533 
2334 
2633 
2336 
253^ 
2340 
2641 


7 

7 


4000 7240 

4001 1333 

4002 3010 

4003 6201 

4004 1731 

4003 7104 

4006 7420 

4007 3233 

4010 7500 

4011 5233 

4012 7006 

4013 7006 

4014 7006 

4015 7430 

4016 3233 

4017 7700 

4020 5233 


PAGE 

7 

7 BUILD AN ORDERED LIST 

7 OP FDB8 FOR PILES TO BE SAVED. 

7 THIS COOE IS DESTROYED BY THE 

7 FIRST INDEX READ. 


7 

7 

EJB000, HONE 

TAD FUST 

DC A AX0 

CDF XLP 

EJB010, TAD I FPOINT 
CLL RAL 
SNL 

JMP EJB030 

S M A 

JMP EJB030 

RTL 

RTL 

RTL 

SZL 

JMP EJB030 

SMA CLA 

JMP EJB030 


7P0INT TO AREA 

7LI3T FIELD 
7GET UNIT CODE 

7PERMANENT? 

7N0 

/OUTPUT? 

7N0 

7UNIT BIT 6 TO LINK 

/WAS IT 1? 

7YES ( NOT MS 
7WAS BIT 10 1? 

/NO, NOT MS 


7 

7 

7 UNIT IS MASS STORAGE, AND FILE 

7 IS TO BE SAVED, PUT IT IN THE 

7 FAMOUS LIST, 


7 


4021 

1331 

TAO 


FPOINT 

/FIRST THE FDB ADDRESS 

4022 

3410 

DC A 

I 

AX0 


4023 

1731 

TAD 

I 

FPOINT 

/NEXT The unit 

4024 

0334 

AND 


half 

/LOW 6 BITS 

4025 

3410 

OCA 

I 

AX0 


4026 

1063 

TAD 


P10 


4027 

1331 

TAD 


FPOINT 

/BUMP TO START 

4030 

3002 

DC A 


TMP1 


4031 

1402 

TAD 

I 

TMP1 

/LAST START 

4032 

3410 

DC A 

I 

AX0 


4033 

7307 

EJB030, FOUR 


/CLEAR AC, AND 

4034 

7008 

I AC 

RAL 


/FORCE 12 

4035 

1331 

TAD 


FPOINT 


4036 

3331 

DC A 


FPOINT 

/BUMP TO NEXT FDB 

4037 

2332 

ISZ 


FCOUNT 

/CHECK COUNT 

4040 

9204 

JMP 


EJB010 

/GET NEXT 

4041 

3410 

DCA 

I 

AX0 

/SET END-OP-LIST INDICATOR 

4042 

1010 

TAD 


AX0 

/CHECK FOR NOTHING TO 00 

4043 

7041 

CIA 




4044 

1333 

TAD 


FLIST 

/ANYTHING 

4845 

7680 

SNA 

CLA 


/IN LIST? 

4046 

By38 

JMP 

I 

EJOQNE 

/NO, DONE 


7 

EJECT 



8942 



/ 




2943 



/ 

BEGIN BUBBLE SORT 

2944 



/ 




2949 

4047 

7240 

EJB100, 

HONE 



2946 

4050 

3002 


OCA 

TMPl 

/80RT-0QNE SWITCH 

294? 

4661 

1333 


TAD 

FUST 


2590 

4052 

3803 


DCA 

TMP2 


2551 

4093 

7325 


THREE 



2592 

4064 

1333 


TAD 

FUST 


2593 

4055 

3604 


OCA 

TMP3 


2534 



/ 




2599 



/ 

TEST FOR SORT 1 

COMPLETION 

2956 



/ 




2697 

4056 

1404 

EJBii0 # 

TAD I 

TMP3 

/NEXT ADDRESS 

2500 

4057 

7640 


SZA CLA 


/END OF LIST? 

2561 

4060 

5265 


JMP 

EJ8120 

/NO 

2562 

4061 

2002 


ISZ 

TMP1 

/YES. SORTED? 

2563 

4062 

5247 


JMP 

EJB100 

/NO, TRY AGAIN 

2564 

4063 

5694 


JMP I 

• M 


2505 

4864 

3463 


EJ3810 


/YES, SAVE THEM 

2566 



i 




2667 



/ 

IS A SNAP NECESSARY? 

2972 



/ 




26/1 

4065 

1803 

£ JB 120 * 

TAD 

TMP2 

/COPY POINTERS 

2572 

4066 

3010 


DCA 

AX0 


2573 

4067 

1004 


TAD 

TMP3 


2574 

4070 

3011 


OCA 

AX 1 

/FOR SQ»T TEST 

2575 

4071 

1410 


TAO I 

AX0 

/GET UNIT 

2676 

4072 

7041 


CIA 


/COMPARE 

2577 

4073 

1411 


TAD I 

AX 1 

/OTHER UNIT 

2680 

4074 

7540 


SNA SZA 


/IF FIRST LOW, 

2621 

4075 

5322 


JNP 

EJB150 

/DO NOT SWAP 

2622 

4076 

7640 


SZA CLA 


/IF FIRST HIGH, 

2623 

4077 

5305 


JMP 

EJB130 

/DO SWAP 

2624 

4100 

1410 


TAD I 

AX0 

/IP UNITS EQUAL, 

2625 

4101 

71«1 


CIA CLL 


/COMPARE 

2626 

4102 

1411 


TAD I 

AX 1 

/STARTING BLOCKS 

2627 

4103 

7630 


SZL CLA 


/IF FIRST LOW, 

2612 

4104 

5322 


JNP 

EJB180 

/DO NOT SWAP 

2611 



/ 




2512 



/ 

SNAP TWO ENTRIES 

2613 



/ 




2614 

4185 

7346 

EJB130, 

MTHREE 


/SET COUNT 

2615 

4186 

3002 


OCA 

TMPl 

/BLOWING SORT-DONE SWITCH 

2916 

4107 

1403 

£JBU0, 

TAD I 

TMP2 


2617 

4110 

3005 


DCA 

TMP4 

/HOLD THIS 

2628 

4111 

1404 


TAD I 

TMP3 

/MOVE THE OTHER 

2621 

4112 

3403 


DCA I 

TMP2 


2622 

4113 

1005 


TAD 

TMP4 

/NOW MOVE THIS 

2623 

4114 

3404 


DCA X 

TMP3 


2624 

4115 

2003 


ISZ 

TMP2 

/BUMP POINTERS 

2625 

4116 

2004 


ISZ 

TMP3 


2626 

4117 

2002 


ISZ 

TMPl 

/CHECK COUNT 

2627 

4128 

9307 


JNP 

EJ3140 

/DO MORE 

2630 

4121 

5256 


JMP 

EJB110 

/DO NEXT 

2631 



/ 




2632 




EJECT 





2633 



/ 

263a 



/ 

2636 



/ 

2636 



/ 

2637 

4122 

7220 

EJB1S0 


4123 

1004 


26 4 j 

4124 

3003 


2642 

4139 

7389 


2643 

4126 

1004 


2644 

4137 

3004 


2646 

4130 

9266 


2640 



/ 

2647 



/ 

266k) 

4131 

7034 

FPOINT 

2661 

4132 

7770 

FCOUNT 

8662 

4133 

7880 

FLI5T, 

2663 

4134 

0077 

HALF, 

2664 

4136 

3591 

EJDONE 

2699 



/ 

2666 



/ 

2637 



/ 

26614 



/ 

2661 



/ 

2662 




2663 




2604 



/ 

2666 



/ 

2666 



/ 


NO SWAP, JUST BUMP POINTERS 
CLA 

TAD TMP3 

DCA TMP2 /BUMP POINTERS 

THREE 

TAD TMP3 

DCA TMP3 

JMP E JB110 


7624 
• 10 

PDBIST /USE CMI BUFFER 

77 

EJS170 


ASMIFN CREF 
LISTAPE CREF 


XSB02 



NO ERRORS 
AC 2000 7332 
AC4«CS0 7330 
ACofc^ii 7333 
AICWA 01*7 
Aux 0000 

AXfcJ 0010 

A*1 0011 

AXa 0012 
CARPET 
CMFNjj 2103 
CMuSCN 2073 
COMLST 2332 
CRCHA 3132 
CRet- 0014 
CVC 2316 
cvo 2227 
CVNA 2252 
CVNaUR 2261 
CVNUP 2200 
eVNZ 22*6 
CVTA 2274 
CVTaIP 2303 
CVZS* 2251 
CV 60 2260 
OtUtT 0125 
OtNT 0260 
DL18T 7614 
OX 1600 

UXAFUl 2626 
OXALJS 2661 
OXARDO 2631 
OXARSn. 2600 
OxBACH 2336 
OXtUKl 2334 
OX»UF 3446 
OXCON 2132 
OXOEC 2342 
OXoiSP 2066 
QxQLP 2062 
QXtPl 3320 
0XEP2 3343 
0X£P3 3366 

OXFChK 1627 
OXPENT 2025 
UXFJCL 1705 
QX|> J2 1703 
OXPtP 2000 
pX(fW 0 N 1670 
0XPN2 1632 
OXpNUN 2026 
OXFQRE 2330 
OXr'ORl 2326 
OXFR 2144 
OXpRST 0052 
0XFR2 2155 
pXtfNfcW 2616 
0XHF2 3266 
0 XhP3 3266 
PXNP4 3304 
0 XHP 6 3320 
OXlAST 0063 


OXtOc 2107 
0XI.SET 2053 


UXN?60 2671 
OXN0AO 2643 
OXFKFii 2122 
pXRRwa 2126 
0XPRM3 3173 
qXPRK 4 2136 
OXPRM 2400 
QXPH. 2126 
klXPAl 3137 
0*RfcN 2606 
OXRNOO 2641 
qXRPUY 3207 
OXRPYl 3177 
()X3r8T 1717 
DXTtUL 2701 
OXTtUP 2711 
OXTP 2714 
OXWAXT 2661 
OXWbAO 2660 
QXNfcRR 5002 
0XNHP 3027 
pXwx 2150 
OXNLP 3020 
OXWNO 2721 
OXnNWP 2066 
OXwNUrt 2663 
OXwfiCN 1602 
0XWT2 3006 
OXmXtT 2754 
OZgRU 0117 
2J0000 4000 
EJ6010 4004 
CJ6030 4033 
tJol00 4047 
EJ0110 4066 
EJ»120 4060 
EJ0130 4105 
EJ 6 I 40 4107 
EJ6150 4122 
SJOONfc 4135 
EJM1 3724 
EJng 3730 
£JH3 4000 
EJN 3507 
EJN000 3676 
EJN010 3673 
EJN020 3703 
EJPaRM 3564 
6JS060 3460 
EJ6010 3463 
EJS020 3465 
EJS030 3503 
EJ8100 3612 
£36110 3617 
EJS150 3625 
£36160 3642 
£38170 3651 
E3V 3866 


63VENT 3037 
£3VmIP 3660 
6JVRET 3662 
tJV000 3600 
EJV010 3611 


t3V020 3638 
EJV050 3663 
E3V066 3666 
E3V060 3670 
PCOUNT 4132 
F08UST 7630 
PINO 6116 
FXNOCR 3160 
FUST 4133 
FOUR 7307 
FP01NT 4131 
FUU, 0133 
UETa 3070 
HAI.F 4134 
HBLNKS 0054 
HNAPE 3745 
XMFllS 3466 
IMFNEE 2165 
IMJCL 3267 
XMMON 3262 
IMVXl) 3260 
IHWORK 2172 
INSERT 1756 
KCOF 0060 
IFLF 2531 
UFUOOP 2534 
LIMIT 0130 

Unfed 0102 

UNCLC 0131 
USTCHR 0132 
«AK**a 0120 
M6UNK 1164 
MbWNKS 0065 
MCARET 2771 
PCORT 0121 
NCR 3721 
MDXbDF 2164 
HDXU 1736 
NfHANE 2361 
N008A 0040 
NONg 7240 
N0V7 1112 
N5 c a N 1247 
NTHREE 7346 
MT40 7344 
NVUP 1747 
NVX 1737 
NUtALN 1335 
MZgRO 1163 
N10 0064 
MU 2576 
M2 3563 
M2B 0066 
M215 3172 



M30 

007(o 

PXril 

3401 

XtCNl 

0044 

M4 

0078 

PXN2 

3406 

XfcRCOD 

0046 

M40 

0im 

PXM3 

3419 

XfcRRfcT 

0252 

M4,30 

0100 

PXH4 

3423 

XERR0 

0112 

MS 

0076 

PXna 

3427 

XeRRl 

0111 

M6 

0077 

PXM6 

3432 

XER&2 
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